use List::Util qw(reduce);
my $s = "ZBBBCZZ";
my $x = reduce { if (@$a && index($a->[-1], $b) >= 0) { $a->[-1] .= $b } else { push @$a, $b } $a } [], split //, $s;