解決。
よし。
use utf8; sub hira2kana { local $_ = shift; $_ = Encode::decode('sjis' ,$_); tr/\x{3041}-\x{3096}/\x{30A1}-\x{30F6}/; Encode::_utf8_off($_); $_ = Encode::encode('sjis',Encode::decode('utf8' ,$_)); return $_; } no utf8;
よし。
use utf8; sub hira2kana { local $_ = shift; $_ = Encode::decode('sjis' ,$_); tr/\x{3041}-\x{3096}/\x{30A1}-\x{30F6}/; Encode::_utf8_off($_); $_ = Encode::encode('sjis',Encode::decode('utf8' ,$_)); return $_; } no utf8;