in reply to simpler regex

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

[download]
Boris

In Section Seekers of Perl Wisdom