$name =~ s/\b([a-z])\b/$1\./gi; [download]
Hope this helps RL
update: Sorry, missed corion's answer
In reply to Re: simpler regex by RL in thread simpler regex by rsiedl