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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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