DB<15> $abbr= uc join "","internal computing department" =~ m/\b(\w)/g
 
  DB<16> print $abbr 
ICD