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