$http_count_limit = 5;   # 今回追加
$http_count = 0; # 今回追加
#デコード
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {

	($name,$value) = split(/=/,$pair);
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
	$name =~ tr/+/ /;
	$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;

	$http_count += $value =~ s/http/http/g; # 今回追加

	&jcode'convert(*name,'sjis'); &jcode'convert(*value,'sjis');

----- 中略 -----

}

#入力チェック
# 以下の5行、今回追加
# push(@DATA_NS,'http_count'); push(@DATA_VS,$http_count);
if ($http_count_limit<$http_count) {
 &error('送信不可','内容が迷惑書込みと判断されました。FAXまたは電話でお問合せ下さい。');
}

<br clear="all">
<div id="test_text">TEST</div>

<br clear="all"
<div id="test_text">TEST</div>