#!/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;
foreach(@ArrayEins){
$_=~ s/([A-Za-z0-9_.-]+@[A-Za-z0-9_]+\.+[A-Za-z]{2,4})/MAILADDY $1 ENDE/g;
push(@ArrayZwei,$_);
}
open(DATEI, ">/home/user/perl/neue_datei.txt") || die "Datei nicht
gefunden";
print DATEI @ArrayZwei;
close(DATEI);