Windowsのメモ帳で保存したテキストファイルの中に「①」があって、それをPerlで読み込んで以下のようにUTF-8に変換したら化けていた。 use Encode; open my $fh, '<', './memo.txt' or die; binmode $fh, q{:encoding(:sjis)}; print encode('utf8' => $_) f…