my $n = unpack("v", substr($str, $off, 2, ""));