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;