$string = decode("euc-jp", $string);

##</code><code>##

$string = encode('euc-jp', $string);

##</code><code>##

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