find . -name '*.txt' -exec perl -pi -e 's/find/replace/g' {} \;