guess_encodingをちゃんと使ってなかったので。。 #!/usr/local/bin/perl -w use strict; #use utf8; use Encode qw/ decode encode from_to /; use Encode::Guess qw/ shiftjis 7bit-jis /; my $str = shift || 'UTF-8:ゆーてぃーえふえいと'; my $decoder …