Select Code to Download

#!/usr/bin/perl
use strict;
...
my $str = "Internal Computing Department";

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

ICD