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