Help for this page

Select Code to Download

Select or download this

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>/);