Data:
Platform Address: C800071E  Channel:  144W Code: N   Start Time: 07266/22:25:02
Uncorrected Addr: C800071E  QM:     46-0NN IFPD: 00  End Time:   07266/22:25:09
                            Length:     60           Xmit Time:  07266/22:25:09

PDT RECORD IS NOT COMPLETE


Platform Address: C800071E  Channel:  144W Code: G   Start Time: 07266/22:25:02
Uncorrected Addr: C800071E  QM:     46-0NN IFPD: 00  End Time:   07266/22:25:09
                            Length:    224           Xmit Time:  07266/22:25:09

"{GTEC[46F6E1E9]0A064C4F4F0000E0021E7641033D3A0301022701FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF3BFFFFFFFFFFFFFF0000FFFF7FCD01871D02006D01C80C000000000000FFFFFFFFFFFFFFFF0000000000000000000000000000000000E30106098C0219070A0D034F}


Platform Address: C800071E  Channel:  144W Code: N   Start Time: 07266/20:25:02
Uncorrected Addr: C800071E  QM:     47-0NN IFPD: FF  End Time:   07266/20:25:09
                            Length:     60           Xmit Time:  07266/20:25:10

PDT RECORD IS NOT COMPLETE


Platform Address: C800071E  Channel:  144W Code: G   Start Time: 07266/20:25:02
Uncorrected Addr: C800071E  QM:     47-0NN IFPD: FF  End Time:   07266/20:25:09
                            Length:    224           Xmit Time:  07266/20:25:10

"{GTEC[46F6CA1A]0A064C4F4F1400DC023A76350340160301004C00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF46FFFFFFFFFFFFFF0000FFFF7FCD01871D02006D01C80C000000000000FFFFFFFFFFFFFFFF0000000000000000000000000000000000E50106098C0219070A0D6790}
Retrieved Data, Processing"



Perl:
 print $t->getline;
        $t->waitfor('/DISPLAY COMPLETE/');
        $t->waitfor('/>/');  ## wait for the prompt after COMPLETE
        print("Sending Data Request");
        $t->print("ty msg list_id 1 266/20:05:05 267/00:00:00 !");
        ($lines) = $t->waitfor('/.*TYPE COMPLETE/');
##      ($lines) = $t->getlines;
##      print $lines;


##      connect to db
#       $dbh = DBI->connect($connectionInfo,$userid,$passwd);
#       my iter = 1;

        print("Retrieved Data, Processing");
#        while(iter)
#       {
        $lines =~ /(.*)Address(.*)/;
        my $var1 = $1;
        my $var2 = $1;
        print("$var1");



I need to get out the Xmit Time, the 4 chars after the {, and the rest of the data up to }