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

One possible approach: 

>perl -wMstrict -le
"my $str = 'Internal Computing Department';
 ;;
 $str =~ s{ [^[:upper:]] }{}xmsg;
 ;;
 print qq{'$str'};
"
'ICD'

[download]

Update: Beyond that, maybe try what sweetblood suggests?

In Section Seekers of Perl Wisdom