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