$repeater = qr/(.)\1+/;
@matches = $string =~ /((??{$repeater}))/g;