$word = qr/
   [[:alpha:]]         # Start with a letter.
   (?:
      [[:alpha:]'-]+   # Allowed characters.
      [:alpha:]        # Don't end on a punctuation mark.
   )?                  # Catch single letter words.
/x;