print "'$1'" while $data =~ m/(\b[A-Z][A-Z\s]+[A-Z]\b)/g;; 'THIS IS A SENTENCE' 'SEQUENCE OF UPPER WORDS' #### print "'$1'" while $data =~ m/(\b[A-Z][A-Z\s]+[^ ]\b)/g;; 'THIS IS A SENTENCE' 'SEQUENCE OF UPPER WORDS'