/^(BCG-\d+)/  # i.e. line-initial "BCG-" followed by digits

##</code><code>##

/^\s+(SNBX\S+)/
/^\s+(TRX-\d+)\s+\S+\s+BL-TRX/

##</code><code>##

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";
    }
}