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";

#!/usr/bin/perl
# vi:ts=4 sw=4 et:
use strict;
use warnings;

my $msg = "Mein Auto ist defekt, darum nutz ich das fahrrad.";

my @words = <DATA>;

# TODO: am Zeilenende darf kein normales Leerzeichen, Tab, o.ä. auftauchen
# man sollte \s auch durch die passenden Hex- oder Octal-Werte in einer Klasse ersetzen
if ( $words[0] =~ m/(\s+)$/ ) {
    local $/=$1;
    chomp @words;
}

my $found = 0;
for my $word (@words) {

   $word = quotemeta($word);
   $found = 1 if $msg =~ /$word/;
}

print "Ergebnis: $found\n";


__DATA__
Auto
Fahrrad