($txt=eval{local($/,@ARGV)=(undef,'D:\Versuch\demo.dat');<>})=~s/x/Y/ig && open(STDOUT, '>D:\Versuch\demo.dat') && print $txt;