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