if your grep does recursion, you can even use it to find the files:

perl -i.bak -plwe 's/foo/bar/g' `grep -r -l foo .`
[download]