in reply to Find First character of each word in a string
Another one liner way:
perl -e 'print uc substr( $_, 0, 1 ) for split(/\s+/, shift())' "Inter
+nal Computing Department"
Yes, I watch meteor showers
No, I do not watch meteor showers
My meteors prefer to bathe
Results (185 votes). Check out past polls.