max osxユーザから頂いたファイルを見ると、ファイル名が「ハ , ゙ , ッ , チ」や「ハ , ゚ , ソ , コ, ン」のように濁音や半濁音が独立(離れた)状態になっている。 どうやら、NFD でnormalizedされたutf8らしいので、次のようなscriptを書いて、実行すると... #!/usr/local/bin/perl use strict; use utf8; use Encode qw/encode decode :fallbacks/; use Unicode::Normalize 'normalize'; use Data::Dumper; main(); sub main { for my $normalize ('D','C','KD','KC'){ for my $org_char (qw/は ば ぱ ハ バ パ ハ バ パ/){ my $new_c