my $bold = 0;
while (my $line = <MAIL>) {
 if ( $line =~ /^Aufgabe/ ) {
   $bold = 1;
 }

 print FILE $line if $bold;

 if ( $line =~ /^Seite/ ) {
   $bold = 0;
   print "\n";
 }
}