Select Code to Download

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

perl -i.bak -M'open IO => ":encoding(UTF-16LE)"' -pe 'BEGIN{undef $/} 
+s/(?<=\x{feff})/Filename: $ARGV\n/'  `find . -name '*.TXT'`

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