in reply to Re: Reading nested records in binary data
in thread Reading nested records in binary data

I think I answered my own question. I think it should be - 
my ($header, @items) = unpack "a300" . "a18" x 250, $buff;

[download]

In Section Seekers of Perl Wisdom