Help for this page

Select Code to Download


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