#!/usr/bin/perl -w

use strict;

print "Die Datei wird nun bearbeitet ...!\n";

open(DATEI, "</home/user/perl/wirrwarr.txt") || die "Datei nicht gefunden";
my @ArrayEins = <DATEI>;
close(DATEI);

my @ArrayZwei;
for my $elem(@ArrayEins){
   my @match = $elem=~ /([A-Za-z0-9_.-]+@[A-Za-z0-9_]+\.+[A-Za-z]{2,4})/g;
   push(@ArrayZwei,map{"MAILADDY $_ ENDE"}@match);
}

open(DATEI, ">/home/user/perl/neue_datei.txt") || die "Datei nicht
gefunden";
print DATEI @ArrayZwei;
close(DATEI);