Select Code to Download

use constant {
    NAME => 0,
...
print $fields[ NAME ];
print $fields[ FOURBYTE ];
print for @fields[ TRAILING .. $#fields ];

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