my $s2 = unpack 'v/A*', substr $$ref2, $p2, $n2;