my $regex = qr/(.)\1+/i;
@ret = grep m/$regex/, @values;