DB<134> p $in
ZBBBCZZ
  DB<135> x split /(?<=(.))(?!\1)/, $in
0  'Z'
1  'Z'
2  'BBB'
3  'B'
4  'C'
5  'C'
6  'ZZ'
7  'Z'