Encode.pmのfrom_toを使って、 my $str = '〜'; from_to $str,'euc_jp','utf8'; で波型が、反転する。 my $str = '〜'; from_to $str,'euc_jp','sjis'; from_to $str,'sjis','utf8'; sjisを経由することで、無理やり解決。 もっと、スマートな方法調査中

Unicode::Japaneseで一発。 use Unicode::Japanese; my $kana = 'モジレツ'; $kana = Unicode::Japanese->new($kana)->kata2hira->get; print $kana;こんな感じ。