use Encode;
$ttl = Encode::encode("shift_jis", $ttl);
$bnm = Encode::encode("shift_jis", $bnm);
$exc = Encode::encode("shift_jis", $exc);

こんどはこうしてみよう