require 'jcode.pl';
 $res = jcode::convert(\$str, 'euc');

詳しくは [jcode.pl|http://www.srekcah.org/jcode/] を参照の事。

{{category perl}}