I'd be inclined to do that as a sub like this:
sub is_blacklisted {
my $string = $_[0];
for (@blacklist){
# add \b /i to re as required
return 1 if ( $string =~ /$_/ );
}
return 0;
}
<Rant> Where I am working at the moment they have a set of key words blocked on the proxy server. I discovered it by accident doing a search for "death and taxes", apparently "death" is not an acceptable topic even though it was completely benign in the context of my search, you can't even do a dictionary search for death! "Dead" on the other hand is ok...
--
Murray Barton
Do not seek to follow in the footsteps of the wise. Seek what they sought. -Basho