#mt-comments.cgi の use strict; 以下に次の記述を追加
#妖しい文字列（ casino biagura lolita fuck ）がある時は強制終了させる
use CGI qw(:standard);
if ($ENV{'REQUEST_METHOD'} eq "POST") {
	if(param('text') !~ /[\x80-\xff]/){　###ここ
		my @chk = ( param('author') , param('email') , param('url') , param('text') );
		my $cmmnt = join('', @chk);
		die if($cmmnt ne "" && $cmmnt =~ /(casino|biagura|viagura|viagra|lolita|fuck|42tower|penis|texas-holdem|porn|xoxma|poker|globalwebbrain|web-cialis|spermincreasingpills|rxpills|tramadol|blackjack-p|bob@|cialis|levitra|Tramadol|Zithromax|yaoi|zithromax-online|x-slots|hold-pok|x-baccarat|x-craps|fioricet|Amoxicillin|extender|ambien|Prozac|discountionamin)/i );
	}　　　###ここ
} 

# ###ここ ってかいてある２カ所の行の先頭に # をつけると 1byte文字制限がなくなって
# 全角文字(2byte文字)が含まれていても妖しい文字列があればコメントを強制終了させられます。
# 妖しい文字列に全角文字(2byte文字)は使えません。