find . -type f -exec perl -pi.bak -e 's/old/new/g' {} \;