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


in reply to Extract sequence of UC words?

\b([A-Z\s]+)\b

[download]

Though you should note that A-Z misses out on accented characters. This is a little more i18n-friendly (not tested): 

use charnames ":full";

\b([\p{IsUpper}\s]+)\b

[download]

In Section Seekers of Perl Wisdom