perl -pi -w -e 's/find/replace/g' `find . -name \*.txt`