sub search {

  @terms = split(/\s+/, $FORM{'terms'});

  foreach $FILE (@FILES) {

     open(FILE,"$FILE");
     @LINES = <FILE>;
     close(FILE);

 

     $string = join(' ',@LINES);
     $string =~ s/\n//g;
    
   //////// PSEUDOCODE
    foreach(@LINES != <div class="scroll">)
    {

    gehe zu nächster zeile in @LINES
   }
   
  wenn der string gefunden wurde lauf weiter in der funktion,
 an der position wo wir in @LINES gerade sind
   ///////// PSEUDOCODE ENDE

        foreach $term (@terms) {
           &Umlaute;

              if ($string =~ /$term/) {
                 $include{$FILE} = 'yes';
                 last;
              }
              else {
                 $include{$FILE} = 'no';
              }

        }

    
  }
}