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