Find & Replace Recursively in a directory (Perl)
By Haktan Suren, PhD
May 7th, 2013
If you happen to substitute every instances of foo with bar in a specific directory, you can simply use the following shell script.
perl -e "s/foo/bar/g;" -pi $(find /path/to/dir -type f)
You should escape the “/”. Following example will replace foo/foo with barbar
perl -e "s/foo\/foo/barbar/g;" -pi $(find /path/to/dir -type f)