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;
 }
[download]

<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...