([^.,;:?! \n]+)(?{++ $found{lc $1}})