my ($name, $onebyte, @twobytes, @fourbytes, $back2onebyte, @trailing)
    = unpack( "Z16 C1 C2 C4 C1 x400 C*", $data);

##</code><code>##

my ($name, $onebyte, @twobytes, @fourbytes, $back2onebyte, @trailing)
    = ($z, $c1, $c2_0, $c2_1, $c4_0, $c4_1, $c4_2, $c4_3, ...);