#!/usr/bin/perl -w

# Dateinamen festlegen
my @dateien = ('SE1.XML' , 'SE2.XML');

# Suchtext eingeben
my $suche = "F_100005.DACA.PV";

# Ersatztext eingeben
my $ersetze = "F_100005.PV";

foreach $path (@dateien) {

# Datei öffnen
open (DATEI, "$path") || die ("konnte die Datei \"$path\" nicht öffnen. Fehler: $!");
@eingabe = <DATEI>;
close DATEI;

foreach (@eingabe) {

# Erstzung vornhemen
s/$suche/$ersetze/g;
}

# Datei zur Ausgabe öffnen
open (OUT, ">$path") || die ("konnte die Datei \"$path\" nicht öffnen. Fehler: $!");
# Neue Textfassung ausgeben
print OUT @eingabe;
close OUT;
}