perl -e 'print uc substr( $_, 0, 1 ) for split(/\s+/, shift())' "Internal Computing Department"