Help for this page
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'
Ceramics Glass Wood Metal Plastic Paper Banana leaves Something else
Results (474 votes), past polls
