join(' ', split(/\w/,$string,(length($string) ) )