Select Code to Download

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

#OUTPUT
I. C. D.