DB<1> x "ZBBCZZ" =~ /(??{'(.)\1*'})/g;
0  'Z'
1  'BB'
2  'C'
3  'ZZ'
  DB<2>