use Tie::File;

my $file = '/path/to/file.txt';

tie my @lines, 'Tie::File', $file or die $!;
for my $line ( @lines ){
    $line =~ s/"\d{4}"/deine_ersetzung/g;
}
untie @lines;

#!/usr/bin/perl -w
use Tie::File;

# die HTML Seiten 
my @files = ("1.html", "2.html", ...);

$vor = "string zu suchen";
$nach = "string zu ersetzen";

for my $file (@files) {
  tie my @lines, 'Tie::File', $file or die $!;

  for my $line ( @lines )  {
        $line =~ s/$vor/$nach/g;
   }
   untie @lines;
   print "datei".$file."fertig \n";
}