my ($header, @items) = unpack "a300" . "a18" x 250, $buff; [download]
In reply to Re^2: Reading nested records in binary data by Anonymous Monk in thread Reading nested records in binary data by Anonymous Monk