http://www.perlmonks.org?node_id=873368


in reply to Find First character of each word in a string

Backreferencing is just another way to go
$string = "Internal Computing Department"; $string =~ s/(\w)\w*/$1\./g; print $string ; #OUTPUT I. C. D.


Excellence is an Endeavor of Persistence. A Year-Old Monk :D .