my ($header, @items) = unpack "a300" . "a18" x 250, $buff;