Select Code to Download

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

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