投稿時のbbs.cgi内sub iyaiya_multi_ninjaIDで

my $num_of_ID = $r->scard($ipaddr); # IPアドレスに紐付けされている忍者IDの数
print "$ipaddr で使われている忍者IDは $num_of_ID 個\n";
if ($num_of_ID > 3) { # 4つ以上なら煮るなり焼くなり破門するなり
print "忍者IDが4つ以上見つかったので破門\n";
my @evil_ninjaIDs = $r->smembers($ipaddr); # 悪い忍者IDをリストにぶち込んで
$r->select($NINJA_Hamon_DB);
foreach my $evil_ninID (@evil_ninjaIDs) {
$r->setex($evil_ninID, $Hamon_expire, time()); # 破門DBに登録
}
$r->select($NINJA_checkID_DB);
$r->del($ipaddr); # 破門したらいったんキーごと削除
}

ということをやっていると思う、そんでその判定をするかどうかを一度チェックしてると思う。（実際は違うかも）
チェックするかしないかはこれかな？\.razil.jp$もあるし

sub Unagi
{
my ($rrr) = @_ ;

if($rrr =~ /\.jp-..ne.jp$/) {return 0;}
if($rrr =~ /\.ezweb.ne.jp$/) {return 0;}
if($rrr =~ /\.docomo.ne.jp$/) {return 0;}
if($rrr =~ /\.razil.jp$/) {return 0;}

if($rrr =~ /\.eonet.ne.jp$/) {return 1;}
if($rrr =~ /\.emobile.ad.jp$/) {return 1;}
if($rrr =~ /\.e-mobile.ne.jp$/) {return 1;}

return 1;
}

この辺に追加すればいいんじゃね？と過去の開発スレを見ておもた。
当時スレ追ってたんだけどもう忘れたなぁ、、、