Help for this page

Select Code to Download


  1. or download this
    $word = qr/
   [[:alpha:]]      # Start with a letter.
...
      [[:alpha:]]   # Don't end on a punctuation mark.
   )?               # Catch single letter words.
/x;
  2. or download this
    $word = qr/
   [[:alpha:]]         # Start with a letter.
...
      [:alpha:]        # Don't end on a punctuation mark.
   )?                  # Catch single letter words.
/x;
  3. or download this
    my $last1;
my $last2;
...
   $last2 = $last1;
   $last1 = $word;
}