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.

[download]

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

In Section Seekers of Perl Wisdom