Select Code to Download

[KEY]
һ
...
KeyStr=һحدؼ�^
KeyMap=һحدؼ�^
[DICT]

my %conv =  (
    'U\+003d'    =>    'key1',        
);

while (<F>) {    
    push ( @raw, utf16($_));
}

my @hexout;
foreach $line ( @raw ) {
...
        # maintain a list of output hex values.
        push @hexout, $hvs;
}

Unicode::String->stringify_as( 'utf16' );
my $out16 = Unicode::String->new();
$out16->hex ( join '', @hexout);
print OUTFILE $out16;
close F || die;

print OUTFILE chr hex foreach ( split /\s*/, $outhex );