#!/usr/bin/perl

use strict;
use warnings;

my @my_array;
my $replace = "neuer Wert";

open(DATEI,"<", "altedatei") || die "Datei nicht gefunden";
while(<DATEI>){
   chomp;
   push(@my_array,$_);
}
close(DATEI);

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

open (DATA, "datei") || die "konnte die Datei nicht oeffnen\n";
#Solange noch etwas in der Datei steht, fuehre sed-Aktion aus
while (<DATA>){
   $_ =~ s/$regex/$replace/g;
   push(@datei, $_); 
}
#Die Datei wird nach der Bearbeitung geschlossen.
close (DATA);

#Die Datei wird zum schreiben geoeffnet
open (WRITE, ">","datei.neu") || die "konnte Datei nicht beschreiben\n";
#Die Datei wird mit dem Inhalt des Arrays ueberschrieben.
print WRITE @content;
#die fertige Datei wird geschlossen.
close (WRITE);