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"
An electronic device
Being the designated driver
Spending time with a celebrity
I never won anything
I never play the lottery
I haven't checked my spam folder recently
Results (426 votes). Check out past polls.