in reply to Find First character of each word in a string
Backreferencing is just another way to go
Excellence is an Endeavor of Persistence. A Year-Old Monk :D .
$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 .
|
---|
In Section
Seekers of Perl Wisdom