open BADWORDS, "badwords.db" or die $!;

$found = 0;
for my $word (<BADWORDS>) {
  (my $tmp = $message) =~ tr/ //d;
  $found = 1 if $tmp =~ /$word/;
}