my @fields = unpack( "Z16 C S L C x400 C*", $data );