# komplette Datei in $data einlesen
my($data);
open(MAIL, '<', 'text.txt') or die $!;
{ 
 undef($/);
 $data = <MAIL>
}
close(MAIL);

open(FILE, '>', 'aufgabe.txt') or die $!;

while($data =~ m {
                  .*?   Aufgabe  \s+ (\d+) \s+  von  \s+ (\d+)   .*? \n+
                        (?: Bewertung: \s+ (\d) \s+ Punkte)?     .*? \n+
                  .*?   Thema: (.+?)                                 \n+
                  .*?   Beschreibung: ((?:.|\n)+?)
                        Buch: \s+ (.+?), \s+ Seite \s+ (\d+) - (\d+)
                 }gxs){


     printf(FILE<<"END", $1, $2, $3, $4, $5, $6, $7, $8);
<Aufgabe> %d von %d </Aufgabe>
<Bewertung> %s Punkte </Bewertung>
<Thema> %s </Thema>
<Beschreibung> %s </Beschreibung>
<Buch> %s </Buch>
<Seite> %d-%d </Seite>

END
}
close(FILE);