foo("foobar-hutzel-putzel") = [foo("foobarhutzel-putzel"), foo("foobar-hutzelputzel")]

$str = 'foo-bar-hutzel-putzel';
$len = scalar(@arr = $str =~ /-/g);
$max = (2 ** scalar(@arr)) - 1;
$pat = '^' . '([^-]*)-' x scalar(@arr) . '([^-]*)$';

for $i ( 0..$max ) {
  $bits = sprintf("%03b", $i);
  $subs = '';

  for $j ( 0..($len-1) ) {
    $subs .= '$' . ($j+1) . ((($bits >> $j) & 0x1) ? '-' : '');
  }

  $subs .= '$4';

  eval("(\$tmp = '$str') =~ s/$pat/$subs/;");

  printf("$tmp\n");
}

foobarhutzelputzel
foo-barhutzelputzel
foobar-hutzelputzel
foo-bar-hutzelputzel
foobarhutzel-putzel
foo-barhutzel-putzel
foobar-hutzel-putzel
foo-bar-hutzel-putzel

$len = $str =~ tr/-//;

my $len = $str =~ tr/-//;
my $max = (2 ** $len) - 1;
my $pat = '^' . '([^-]*)-' x $len . '([^-]*)$';
        
for my $i ( 0 .. $max ) {
            
   my $bits = sprintf("%03b", $i);
                                    
   my $subs = '';
   $subs .= '$' . ($_+1) . ((($bits >> $_) & 0x1) ? '-' : '')
      for (0 .. $len-1);
   $subs .= '$'.($len+1);
            
   my $tmp;
   eval("(\$tmp = '$str') =~ s/$pat/$subs/;");
            
   push @retval, $tmp;                        
}