@words = $word =~ /(\w+)['\z]?/g;