1 while $name =~ s/(^| )(.)( |$)/$1$2\.$3/;