123456789101112
#!/usr/bin/perluse strict;use warnings;my $string = 'foo-bar-hutzel-putzel';foreach(0..7){ my $copy = $string; map{$_ == 1 ? $copy =~ s/-// : $copy =~ s/-/'/} split//,sprintf "%03b",$_; $copy =~ s/'/-/g; print "$copy\n";}