You can use the -i perl flag to change the file "in place" (see perlrun). You have to print all the lines, though, not only the changed one, and process the input with the diamond operator <> instead of creating your own file handle.