#!/usr/local/bin/perl -p

if (/0x([0-9A-F]{4})\s+0x([0-9A-F]{4})/)
{
	$unicode{hex($1)}=hex($2); $_='';
}

s/ENCODING\s+(\d+)/ENCODING $unicode{$1}/;

# bdfrecode "awk '/^0x/{print $2,$3} mappings/eastasia/jis/jis0208.txt |" \
# "zcat fonts/intlfonts/Japanese/k16-1990.bdf.gz|" | bdfimplode | tee
# k16-1990.hex