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