>>784
@badhostに'219\.160\.(89|9[0-6])\.[0-9]+'を入れてみれ。

あと、host引くところはこんな感じがいい。
$host = $ENV{REMOTE_HOST} ||
gethostbyaddr(pack('C4', split(/\./, $ENV{REMOTE_ADDR})), 2) ||
$ENV{REMOTE_ADDR};