([A-Za-z']+)(?{++ $found{lc $1}})

##</code><code>##

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