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"
1. Keep it simple
2. Just remember to pull out 3 in the morning
3. A good puzzle will wake me up
Many. I like to torture myself
0. Socks just get in the way
Results (309 votes). Check out past polls.