push @ints, 0 if $bits =~ s/^(\d)// && $1;
push @ints, pos $bits while $bits =~ /1/g;