$word = qr/
   [[:alpha:]]      # Start with a letter.
   (?:
      [:^space:]*   # Hyphens, apostrophes, etc
      [[:alpha:]]   # Don't end on a punctuation mark.
   )?               # Catch single letter words.
/x;