my ($kat, $contents) = pack("h4 h4/H*", $data);