Select Code to Download

while ($sock->recv($msg, 1024)) {
$length = length($msg);
print "MESSAGE: $msg LENGTH: $length\n";
}

MESSAGE: !A LENGTH: 2 
MESSAGE: IVDM,1,1,,A,?3nGtL0uPi7pD00,2*46 
 LENGTH: 34

while ($sock->recv($msg, 1024)) {
    $length = length($msg);
    print "MESSAGE: $msg LENGTH: $length";
}

MESSAGE: !AI LENGTH: 3MESSAGE: ADM,1,1,,A,13mK@M0P000gVvvTC=4:LgwV2L0B
+,0*4C
 LENGTH: 46MESSAGE: !AIVDM,1,1,,A,40 LENGTH: 16MESSAGE: 2M43AudTF;o0fr
+sPTBHl700L0h,0*5A

while ($sock->recv($msg, 1024)) {
    $msg1 = substr $msg, 0, -1;
    print "MESSAGE: $msg1 LENGTH: $length";
}