$target 内の文字コードは Perl の内部文字コードに変換してある。 # Shift-JIS の全角波ダッシュを UTF-8 の全角波ダッシュに変換する $target =~ tr/\x{301c}\x{2212}/\x{ff5e}\x{ff0d}/; # UTF-8 の全角波ダッシュを Shift-JIS の全角波ダッシュに変換す…