Help for this page
my $re = qr/(.)\1*/; ... @matches = $string =~ m/((??{$re}))/g; print "@matches\n"; # xx 55 6 xx