pop=~/^(?{$x=$y=0})((.)(??{"\Q$2"x$y})(?!\2)(?{$y=($x+=++$y)-$y})){3,}$/