in reply to Re^3: Extract sequence of UC words?
in thread Extract sequence of UC words?
Somewhat simpler:
print "'$1'" while $data =~ m/(\b[A-Z][A-Z\s]+[A-Z]\b)/g;; 'THIS IS A SENTENCE' 'SEQUENCE OF UPPER WORDS'
or
print "'$1'" while $data =~ m/(\b[A-Z][A-Z\s]+[^ ]\b)/g;; 'THIS IS A SENTENCE' 'SEQUENCE OF UPPER WORDS'
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.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^5: Extract sequence of UC words?
by monarch (Priest) on Aug 18, 2008 at 17:58 UTC | |
by BrowserUk (Patriarch) on Aug 19, 2008 at 06:31 UTC |
In Section
Seekers of Perl Wisdom