#!/usr/bin/perl

use strict;
my @records = <DATA>;

for (0 .. $#records) {
    print $records[$_] . $records[$_ + 1]
      if ( $records[$_] =~ /\{TT\}/ );
}

__DATA__
S 9912290449 00005941^B{TT}
D
{TAG}
9912290449
{PUBLICATION}
THE OS
{DATE}
000101

S 9912290450 00005941^B{TT}
R
{TAG}
9912290450
{DATE}
000101
{TDATE}
Saturday, January 1, 2000


S 9912290451 00005941^B{TT}
D
{TAG}
9912290451
{DATE}
000101
{TDATE}
Saturday, January 1, 2000