use Unicode::Japanese;

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

##</code><code>##

use Encode qw/encode decode/; 
$word = from_to( "euc-jp", $word ); #from_to subroutine doesn't exist
$word = encode( "euc-jp", $word ); # mangled