Select Code to Download

my @superset = split /\s+/, 'convert python to perl';
my $N = scalar @superset;
for my $combo (0..((2**$N) - 1)) {   # a combo is also a bit mask
...
    }
    print "\n";
}

selection:
selection: convert
selection: python
...
selection: convert to perl
selection: python to perl
selection: convert python to perl

my @superset = split /\s+/, 'convert python to perl';
my $N = $#superset; # one less element than in the previous example
...
        }
    }
}

convert-python-to-perl
convert python-to-perl
convert-python to-perl
...
convert python-to perl
convert-python to perl
convert python to perl