PerlのUTF-8処理

UTF-8のテキスト処理をする時はまず入り口でUTF-8フラグを立てる。
最後の出力（出口）ではUTF-8フラグを落とす。

my $str = "日本語";


#UTF-8フラグを立てる
utf8::decode($str);


#UTF-8かどうかをチェック
print utf8::is_utf8($str);


#・・・なにかの処理・・・


#UTF-8フラグを落とす
utf8::encode($str);


print $str;