open(FILE, 'D:\Versuch\demo.dat');
map { s/x/Y/ig } (@tmp = <FILE>);
open(FILE, '>D:\Versuch\demo.dat');
print FILE for @tmp;