Suchen und ersetzen in mehreren Dateien?

[Jammer]

Hi,
ich wollte ein Script schreiben, mit dem man alle txt Dateien im aktuellem Verzeichnis nach einem String durchsuchen kann und ihn durch einen zweiten zu ersetzen. Aber leider bekomme ich nur leere txt Dateien als Ergebnis... perl -c und perl -w bringen keine Fehlermeldungen. Woran kann das liegen?
danke.

print "Nach welchem Begriff suchen?\n";
$Search=<STDIN>;
chomp($Search);
print "Durch was ersetzen?\n";
$Ad = <STDIN>;
chomp($Ad);

@AllFiles= glob('*.txt');

foreach $Dateien (@AllFiles)
{
    
    open(DATA, ">$Dateien") or die "Fehler!\n";
    while(<DATA>)
    {
s/$Search/$Ad/g;
print DATA $_;
    }
    close(DATA);
}