use warnings;  # warne mich, nerve mich!
use strict;    # zwinge mich, sauber zu coden!

my $file_orig = 'D:\\Versuch\\demo.dat';
my $file_modf = 'D:\\Versuch\\demo.tmp';

# zum Lesen öffnen
open(my $orig, '<', $file_orig) or die "cannot open $file_orig\n";
# Ausgabedatei zum Schreiben öffnen
open(my $modf, '>', $file_modf) or die "cannot open $file_modf\n";

# zeilenweise einlesen und verändert ausgeben
while (my $line = <$orig>) {
    $line =~ s/x/Y/ig;  # alle x durch Y ersetzen (groß/klein)
    print $modf $line;
}

close $orig;
close $modf;

# alte Datei durch neue ersetzen
unlink $file_orig;
rename $file_modf, $file_orig;