(追記:より良いおまじない。詳細は後述。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に振りましょう。了解でっす!