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