use Unicode::Japanese;
$string = Unicode::Japanese->new($string)->euc;