Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...
while ( $data =~ m/(\b(?:[A-Z]+(?:\s+[A-Z]+)*)+\b)/g ) {
  print "Upper Sentence: \"$1\"\n";
}
  2. or download this
    Upper Sentence: "THIS IS A SENTENCE"
Upper Sentence: "SEQUENCE OF UPPER WORDS"