my @Array = keys %{{$String =~ m/((.)\2*)/g}}