全角英数字を半角に変換しようということで， use Encode; # 全角を半角に変換(基本的に"英数字記号，スペース") $_ = decode('Shift_JIS', $_); tr/\x{ff01}-\x{ff5d}\x{3000}/\x{0021}-\x{007d}\x{0020}/; $_ = encode('Shift_JIS', $_); とやったのだが，…