On Line 17 you've got $line set up to append. If your test fails (the desired string is not found in Lines 20-21, then your $line variable keeps the stuff it already had, and appends the next line of text in your input file. I don't know what your input file looks like, but I suspect that line 17 might be the problem.