Select Code to Download

my $open_mode = "<:utf8"; # or "<:encoding(UTF-16LE)" etc.
open( IN, $open_mode, "unicode_input.txt" );
...
   # do stuff with $_, then
   print;
}

my %charpinyin;

...
   my ( $chchar, $pinyin ) = split /\t/;
   $charpinyin{$chchar} = $pinyin;
}