open(FILE, 'D:\Versuch\demo.dat');
@tmp = <FILE>;
map { $_ =~ s/x/Y/ig } @tmp;
close(FILE);
open(FILE, '>D:\Versuch\demo.dat');
for (@tmp) { # oder (identisch) foreach
    print FILE $_;
}
close(FILE);