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