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