(my($t),$foo) = unpack('Ca*', $foo);
if ( $t == 3 ) {
  ($v,$foo) = unpack('Z*a*', $foo); 
}