Try skipping .txt files. If you are processing c:/perl/dvd_files/foo.txt you will open it for reading, and then turn right around and open it for writing (which truncates anything that was there).

If you need to do the substitution on .txt files also, open a different output file and then rename it to where you want it, or read in the entire file before opening it for writing.