DB<34> $_='abbbbbbbbbba'

  DB<35> x m/^(.) ( (?!\1) . )* \1$/x
0  'a'
1  'b'