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 Englishman in New York
An American Werewolf in London
An American in Paris
The Innocents Abroad
An Idiot Abroad
Robinson Crusoe on Mars
A Connecticut_Yankee in King Arthur's Court
There and Back Again
Travels into Several Remote Nations of the World
Results (88 votes). Check out past polls.