Select Code to Download

use Data::Dumper;
my $counter = 'a0000000';
my @x= unpack('(B3)(B3)(B2)(B)(B)(B)(B2)(B3)BBBBB(B11)', pack('H*', $c
+ounter));
print Dumper(\@x);

$VAR1 = [
          '101',
...
          '',
          ''
        ];