You could use -

@badsites = qw( spammer.com spammer2.com spammer3.com );

foreach (@badsites) {
if (grep /$_/i, $in{'URL'}) {
&site_html_add_failure ("DONT SPAM ME");
}
}

Also you could use -

@badip = qw( 111.111.111.111 222.222.222.222 );

foreach (@badip) {
if ($ENV{'REMOTE_ADDR'} =~ /$_/) {
&site_html_add_failure ("DONT SPAM ME");
}
}

I don't guarantee it but I think it should work. When I say I don't guarantee it, I mean in terms of syntax because I haven't tested it.

Paul
Installations:http://wiredon.net/gt/
Support: http://wiredon.net/forum/