I too would advocate using the File::Find approach - only issue I can see with the solution from chrestomanci is that it doesn't update the files themselves.

To emulate what perl's -i switch does, first rename each file with an extension like .orig, open that new file for reading, and write output to the original filename.