文字コードを変換する際に全角波ダッシュ「〜」を文字化けなしで変換する

$target 内の文字コードは Perl の内部文字コードに変換してある。

# Shift-JIS の全角波ダッシュを UTF-8 の全角波ダッシュに変換する
$target =~ tr/\x{301c}\x{2212}/\x{ff5e}\x{ff0d}/; 
# UTF-8 の全角波ダッシュを Shift-JIS の全角波ダッシュに変換する
$target =~ tr/\x{ff5e}\x{ff0d}/\x{301c}\x{2212}/;