http://www.perlmonks.org?node_id=1016449


in reply to Seeking a better way to do it

Taking your spec as read:

@words = 'Enter Iago, Othello, and others' =~ m[(\b[A-Z]\w+\b)]g;; print @words;; Enter Iago Othello

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.