sub extract_text {
   $_[0] =~ s/^((?:..)*)\0\0//s or die;
   return decode('UTF-16le', "$1");
}

my $first_name  = extract_text($bytes);
my $middle_name = extract_text($bytes);
my $last_name   = extract_text($bytes);
my ($x, $y)     = unpack('VV', substr($bytes, 0, 8, ''));
my $address     = extract_text($bytes);
my $zip_code    = extract_text($bytes);
my ($z)         = unpack('V', substr($bytes, 0, 4, ''));