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

##</code><code>##

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