My query
$length = unpack "C4", substr $data,0,2,'';

Your query
my ($n) = unpack 'x v', $raw;