perl -i -pe '(code that runs but does the wrong thing)'  `find . -name '*.TXT'`