find /perl/bin/ThisDirectoryHere -type f | xargs perl -i -pe  's|oldword/newword/gi'