Assuming you have the entire content of the file in a string called $var (if you have them line by line in an array, just see whether the first character of the last element is a T), you could do:

  $text =~ /(?:^|\n)T[^\n]*$/
[download]