Re: Find First character of each word in a string

[biohisham]

Backreferencing is just another way to go

$string = "Internal Computing Department";
$string =~ s/(\w)\w*/$1\./g;
print $string ;

#OUTPUT
I. C. D.