use Unicode::Japanese;

my $word = Unicode::Japanese->new($word, 'euc-jp')->get; # mangled