open WORDS, "/srv/www/kukla/words.txt"
   or die $!;
my @words = <WORDS>;

my $found = 0;
for my $word (@words) {
   chomp $word;
   $word = quotemeta($word);
   $found = 1 if $msg =~ /$word/;
}

print "Ergebnis: $found\n";