Select Code to Download

my $re = qr/(.)\1*/;

...

@matches = $string =~ m/((??{$re}))/g;
print "@matches\n"; # xx 55 6 xx