my $s = "ZBBBCZZ"; my @x; push @x, $1 while $s =~ /((.)\2*)/g;