actually Perl has a builtin glob for this use case.

  DB<123> $input="one two three"
 => "one two three"

  DB<124> $globber= join q|{' ','-'}| , split / +/, $input
 => "one{' ','-'}two{' ','-'}three"

  DB<125> print "$_\n" while glob($globber)
one two three
one two-three
one-two three
one-two-three
[download]

please note that line 125 acts as an iterator looping over all results, like yield permits.

for a flat list result just don't call glob in scalar context:

  DB<127> print join "\n", glob($globber)
one two three
one two-three
one-two three
one-two-three
[download]

update

just in case $input includes any meta characters or wildcards, you'll need to escape them before.