A Perlish version might look something like:

#!/usr/bin/perl
use strict;
use warnings;

my $str = "Internal Computing Department";

print join '', map {uc substr $_, 0, 1} split ' ', $str;
[download]

Prints:

ICD
[download]