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

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