print $data =~ m/(\b[A-Z][A-Z ]+\b)/;; TEST SENTENCE