http://qs321.pair.com?node_id=614558


in reply to simpler regex

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

[download]
Boris

In Section Seekers of Perl Wisdom