掲示板に海外?からの迷惑書き込みが多く、対応策を考えています。
分からないなりに色々と調べて以下のような対応をしてみました。
迷惑書き込みのほとんどが英語の書き込みなので、書き込み内容が
全て半角文字だったら書き込みしないようにしたつもりです。

if($comment =~ /[\x81-\x9f\xe0-\xef][\x40-\x7e\x80-\xfc]/){
$textchk = 0;
}
else{
$textchk = 1;
}

if ( $textchk = 1 ){
print "書込み内容が不適切です\n";
}

この対応でだいぶ書き込みが減ったのですが、まだ一部「Good design!
」みたいな書き込みがされていました。これも全て半角文字なのですが、
なぜ書き込みされてしまうのでしょうか?自分のPCから「Good design!
」と書き込もうとしたときはちゃんとチェックがかかります。文字コード
(シフトJISやEUC)の違いなのでしょうか?

ちなみに
if ( index ($comment, 'Good design!') >= 0 ){
$textchk = 1;
}
という文も入れてみたのですが、ダメでした。

よろしくお願いします。