sub search {   @terms = split(/\s+/, $FORM{'terms'});   foreach $FILE (@FILES) {      open(FILE,"$FILE");      @LINES = ;      close(FILE);      $string = join(' ',@LINES);      $string =~ s/\n//g;                         foreach $term (@terms) {            &Umlaute;               if ($string =~ /$term/) {         $include{$FILE} = 'yes';                  last;               }               else {                  $include{$FILE} = 'no';               }         }       } }