>>  ( $R,$G,$B ) = unpack("nnn", $myNum );


##</code><code>##

@ushort=unpack("S*", $buf);  # Extract oodles of UINT16s


##</code><code>##

@UINT48 = unpack("???????", $BUF)


##</code><code>##

>> n  An unsigned short (16-bit) in "network" (big-endian) order.
I use 'S'  <c>>>S  An unsigned short value.<<