my $bw = File::ReadBackwards->new( 'your.filename' ) 
    or die "can't read 'your.filename'\n$!";

if( 
    defined( my $last_line = $bw->readline )
    and $last_line =~ m/^T/
) {
    # do your processing here...
}