in reply to parsing Binary Structures using unpack

Your pattern might be described as "nZ*nnn", but when I

my @data = unpack("nZ*nnn", $packet); print Dumper(\@data);

$data[1] contains everything starting from the 6th byte, which indicate there is no \x00 in between.