#!/usr/bin/perl

use strict;
no warnings;

my @lines = <DATA>;

for my $i (0 .. $#lines) {
    if ( $lines[$i] =~ /\{T\}/
      && $lines[$i + 1] =~ /^\w$/ ) {
          splice( @lines, ($i + 1 ), 1 );

    }
}

print @lines;

__DATA__
020209990421VUTVS01 00082445B3^V^V^A2^C^D^V^V^A os00 0001 000101 R S 9
+912290449 00005941^B{T}
R
Saturday, January 1, 2000
G1
G
^C^D^V^V^A os00 0002 000101 R S 9912290451 00004113^B{T}
R
G8
Gardening<
January garden calendar
B
C