<pre>
#!/usr/local/bin/perl
use strict;
require('jcode.pl');
sub ff($$){
    my $yomi = shift;
    my $word = shift;
   &jcode::tr(\$yomi,
'央失奴奶孕它尼巨巧左市布平幼弁弘弗必戊打扔扒扑斥旦朮本未末札正母民氐永汁汀氾犯玄玉瓜瓦甘生用甩田由甲申疋白皮皿目矛矢石示禾穴立丞丟乒乓乩亙交亦亥仿伉伙伊伕伍伐休伏仲件任仰仳',
'丑丐不中丰丹之尹予云井互五亢仁什仃仆仇仍今介仄元允內六兮公冗凶分切刈勻勾勿化匹午升卅卞厄友及反壬天夫太夭孔少尤尺屯巴幻廿弔引心戈戶手扎支文斗斤方日曰月木欠止歹毋比毛氏水火爪');
    printf("%-30s   %-15s  譁抩     2\n", $yomi, $word);}
while (<>) {
    my @token = split;
    my $yomi = $token[9];
    my $word = $token[6];
    $word =~ s/\(//g;
    $yomi =~ s/\)//g;
    if ( $yomi =~ m|\{(.*)\}| ) {
	my @several = split('/',$1);
	foreach my $i (@several) {
	    ff($i,$word);}}
    else {
	ff ($yomi,$word);  }}
__END__
## {卅互允/卅互內}                  贏膚             譁抩     2

ipadic-2.4.4)> ack -e Noun.place.dic | ~/perl/practice/kata-hira-tr | jless


/tmp/6.u:中切中壬日                       搦葆             譁抩     2
/tmp/6.u:中切亢壬月                       搦葆             譁抩     2
/tmp/6.u:中切反日                         搦葆             譁抩     2
</pre>