１５０行目に↓を加えると大丈夫だと思うけど>>473みたいに「かなカナ」以外の日本語でもエラーにしたいなら
$in{'comment'}を$in{'message'}にすればいい。あと、荒らしに対してエラー文で"日本語を書いてください。"ってヒント与えるのはいただけない

if ($in{'message'}!~/(?:[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]|[\xA1-\xDF]){2}/){ &error("Busy now!"); }