DB<1> $str="Internal Computing Department"
 
  DB<2> print $str=~m/\b(\w)/g
ICD

##</code><code>##

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