One thing wrong with your code is that you are doing "print $line" which will print it out to screen.

If you want to change the file you need to do "print FIL $line".