while (<FILE1>){

    if (/(.*)\n([A-Za-z\n]+)/){
    
       ($header,$seq)=($1,$2);
        $seq=~s/\s//g;
     
          if ($i=$seq=~s/($pattern_neu)/<span class='stil3'>$1<\/span>/g){
          
            $seq =~ s/([A-Z]{70})/$1<br>/sg;
             
           open FILE2,">>../docs/Site/files/pattern_html/$pattern_html.htm";
           print FILE2 "<font size='2'><strong>>$header<\/strong><\/font><br><font size='2'>$seq<\/font><p>";
           close(FILE2);
           $Anzseq=$Anzseq+1;
           $Anzpattern+=$i;
           print STDERR (length $seq)."\n";
        }
    }

}
close FILE1;