Select Code to Download

my @pos = (2,4,6,9) ;
my $bits = '' ;
...
($bits = unpack('b*', $bits)) =~ s/0+$// ;
my @bits = split(//, $bits) ;
print "(", join(',', @bits), ")\n" ;