DB<8> use List::Util qw/pairkeys/

  DB<9> $_='ZBBBCZZ'

  DB<10> x pairkeys /((.)\2*)/g
0  'Z'
1  'BBB'
2  'C'
3  'ZZ'
  DB<11>