#!/usr/bin/perl

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

open (DATA, "datei") || die "konnte die Datei nicht oeffnen\n";
#Solange noch etwas in der Datei steht, fuehre sed-Aktion aus
while (<DATA>)
{
  $_ =~ s/$my_array/$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);