Perlでよく使うのでメモ。エンコードの部分は"utf8","euc-jp"など自由に変更可。 （ただし真ん中のeucは変更しない） use Jcode; .... my $word = 'あかさたな'; $word = new Jcode($word,"utf8")->tr(map {new Jcode($_)->euc}('ぁ-ん','ァ-ン'))->utf8;