5 chomp(my $packet = <>);
6 $packet =~ s/./sprintf("%04b", hex $&)/ge if $packet =~ /[2-9A-F]/;
9 my ($ppack, $bits) = @_;
11 $$ppack =~ s/.{$bits}/$rv=eval"0b$&";''/e;
21 my $ver = get_b($pp, 3);
23 my $typ = get_b($pp, 3);
26 while (get_b($pp, 1)) {
28 $num += get_b($pp, 4);
31 $num += get_b($pp, 4);
34 $result .= "op($typ,";
35 my $li = get_b($pp, 1);
37 my $subp = get_b($pp, 11);
43 my $subl = get_b($pp, 15);
44 my $s = substr($pp, 0, $subl);
54 return $l - length($pp);