Select Code to Download

   for ($str) {
     s/0(0*)$/1$1/
     or s/1(0*)1$/01$1/
     or return;
   }

sub nextmask {
     if ($_[0] =~ s/0(0*)$/1$1/) {1;}
...
                     0 .. $#factors;
  print "\n";
}

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/