Select Code to Download

perl -e 'for $file(@ARGV){open FILE, "<$file"; $_ = join "", <FILE>; p
+rint "true" if /^t[^\n]*\Z/msi;close FILE}' *.txt