my( $bit1, $bit2 ) = unpack 'a4 a*', $uuid;