Try:

$text =~ s/( )|\S/$1 || "."/ge;
[download]

This is my old "replace what you don't want replaced by itself, and anything else by whatever you want there instead" trick.