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