perl script.pl < source.txt > result.txt && move /Y result.txt source.txt