find /the/start/dir -type f -exec perl -i~ \ -e 's/origtext/changedtext/g;print' {} \;