($t, $foo) = unpack('Ca*', $foo);
if ($t == 0) {
    ($v, $foo) = unpack('Ca*', $foo );
}