+
+ if ($count =~ /^\?(\d+)/) {
+ # character-terminated group
+ my $endmark = chr $1;
+ my $iterate = ref($self)->new(\@subformat);
+ push @{ $iterate->[0] }, -pos => '=.';
+ my $subpos = 0;
+ while ($subpos < length $data->[0]) {
+ last if substr($data->[0], $subpos, 1) eq $endmark;
+ my $iterdata = $iterate->convert($iterate->[0], [
+ unpack $iterate->[1], substr($data->[0], $subpos)
+ ]) or last;
+ $subpos += delete $iterdata->{-pos};
+ push @{ $res{$field} }, $iterdata;
+ }
+ $$pos += $subpos + 1;
+ @$data = unpack(
+ $self->template([ @$format[$i+2 .. $#$format] ]),
+ substr($data->[0], $subpos + 1)
+ ) if $subpos < length $data->[0];
+ next;
+ }
+