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