return unpack '(Q<)*', pack '(a8)*', unpack "(a$length)*", $stream;