$word = qr/[A-Z][a-z]+/;