Fourty-two chars. One regex. I'm stunned.

pop=~/^((.)(??{"\Q$2"x$-[1]})(?!\2)){3,}$/
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print