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