my $re = qr/((.)\2+)/;