#! /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 $line1 = <MAIL>;

while (defined($line1)) {
  $_ = $line1;
 
  s/[\w]*\n Aufgabe /Aufgbe/g;

  print FILE $_;
  $line1 = <MAIL>;

}