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

because you are usin the for of shellscript to have the name of the file in $file and trying to use this in a perl program... you could do this?

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

Almost there, just insert two extra quotes.

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

you can do this too... but you dont need use the ls insight of for...

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