for file in *.txt
do perl -e 'open FILE, "<'$file'"; $_ = join "", <FILE>; print "true" if /^t[^\n]*\Z/msi'
done