if (/\{T\}/) {
    my $throwaway_line=<DATA>;
    # that line will never get printed now
}
else {
    print ; # print with no arguments prints $_
}