while (<FILE1>){

    if (/(.*)\n([A-Za-z\n]+)/){

       ($header,$seq)=($1,$2);
        $seq=~s/[\n\s]//g;
        $text='';
          if ($i=$seq=~s/($pattern_neu)/$1/g){
           
           $p = HTML::Parser->new();
           $p->handler(text => \&start_handler,"dtext");
           $p->parse($seq);

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

}

$seq=~s/[\n\s]//g;