Perl は文字をUTF-8で扱っている。
つまり、Perlに文字列を渡すときは、UTF-8に変換しなければいけないのだ。
下の例は、「正規表現を試そう」で使用したソースである。
use Encode qw/encode decode/;
（中略）
foreach $data (@list) {
chop($data);
$utf8 = decode ( “euc-jp” , $data ); #渡す文字列をUTF-8にデコード
$assembler->add($utf8)
}
$a = $assembler->re;
$euc = encode ( “euc-jp” , $a ); #返ってきた文字列をEUC-JPにエンコード
print “結果 → “;
print $euc;
（後略）