- my $subl = get_b($pp, 15);
- my $s = substr($pp, 0, $subl);
- $pp =~ s/.{$subl}//;
- while ($subl) {
- my $l1 = parse($s);
- $s =~ s/.{$l1}//;
- $subl -= $l1;
- }
+ my $sublen = chop_bits(15);
+ my $len = length $data;
+ parse() while $len - length($data) < $sublen;