全角かたかなを、ひらがなに変換する。

Unicode::Japaneseで一発。

  use Unicode::Japanese;
  my $kana = 'モジレツ';
  $kana = Unicode::Japanese->new($kana)->kata2hira->get;
  print $kana;

こんな感じ。