($_,$r,$s)=(pop,-1,0);($r,$s)=($s,$r+$s+1)while s#^((.)\2{$s})##&&!/^\Q$2\E/;!$_