open my($in), "<-:encoding(japhy)" or die $!;
open my($out), ">-:encoding(japhy)" or die $!;