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