my $s = "ZBBBCZZ";
my @list = $s.comb: rx/(.)$0*/;

# or if you are very fond on split:
my @list = $s.split(rx/<after (.)><!before $0>/);