$name = join ' ', split ' ', $name;

##</code><code>##

sub wsp {
   $_ = shift;
   join ' ', split;
}