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