Help for this page

Select Code to Download

Select or download this

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

Select or download this

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