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