



(追記:より良いおまじない。詳細は後述。utf8::decode($text) unless utf8::is_utf8($text);
)$text = Encode::decode_utf8($text) unless utf8::is_utf8($text);
use utf8;
use CGI;
...
my $text = $q->param('text') || "";
utf8::decode($text) unless utf8::is_utf8($text);
...
utf8::decode()は、定数文字列、すなわちソース内の文字列に限って利用すべきでしょう。外部入力はEncodeに振りましょう。了解でっす!

