find . -name '*.TXT' | xargs perl -i.bak ...