my ($l, $payload) = unpack ("H4 a*, $rest);