#!/usr/bin/perl

use strict;
use warnings;

my @my_array;
my $file = 'datei';
my $old_file = 'altedatei';
my $new_file = 'neuedatei';
my @datei;

open(DATEI,"<", $old_file) || die "$old_file: $!";
while(<DATEI>){
   chomp;
   push(@my_array,$_);
}
close(DATEI);

my $string = join("|",@my_array);
my $regex = qr{$string};

open (DATA, "<",$file) || die "$file: $!";
while (<DATA>){
   $_ =~ s/($regex)/$1.@xy.de/g;
   push(@datei, $_);
}
#Die Datei wird nach der Bearbeitung geschlossen.
close (DATA);

#Die Datei wird zum schreiben geoeffnet
open (WRITE, ">",$new_file) || die "$new_file: $!";
#Die Datei wird mit dem Inhalt des Arrays ueberschrieben.
print WRITE @datei;
#die fertige Datei wird geschlossen.
close (WRITE);