sub search { @terms = split(/\s+/, $FORM{'terms'}); foreach $FILE (@FILES) { local $/; open(FILE,"<",$FILE) or die $!; my $string = ; close(FILE); ($string) = $string =~ m~
(.*?)
~; $string =~ s/\n//g; foreach $term (@terms) { &Umlaute; if ($string =~ /$term/) { $include{$FILE} = 'yes'; last; } else { $include{$FILE} = 'no'; } } } }