my @fields = $bytes =~ /
   ^
   ((?:..)*)\0\0
   ((?:..)*)\0\0
   ((?:..)*)\0\0
   (.{4})
   (.{4})
   ((?:..)*)\0\0
   ((?:..)*)\0\0
   (.{4})
   \z
/sx or die;

$_ = decode('UTF-16le', $_) for @fields[0,1,2,5,6];
$_ = unpack('V', $_)        for @fields[3,4,7];