my @sequences = $string =~ m/((??{'(.)\1*'}))/g;