my( $tag, $length ) = unpack ..., $buffer;
$buffer = readThisMany( $fh, $length );
my( $value ) = unpack ..., $buffer;