print "BCG    LOCATION    TRX     STATUS\n";
print "---------------------------------\n";
while (<>)
{
    if (/^(BCG-\d+)/) { # start of record
        $recid = $1;
        $loc = $trx = $stat = "";
    }
    elsif (/^\s+(SNB\S+)/) {
        $loc = $1;
    }
    elsif (/^\s+(TRX\S+)\s+\S+\s+(BL-TRX)/) {
        print "$recid  $loc  $1  $2\n";
    }
}