#! /usr/bin/perl -w

use strict;

open (MAIL, "<text.txt")
     or die "Die Datei kann nicht geoeffnet werden: $!";

open (FILE, ">aufgabe.txt")
     or die "Die Datei kann nicht geoeffnet werden: $!";

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

  print FILE $line if $bold;

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