Regex coincide con cualquier personaje que se repita más de 10 veces

#!perl
use warnings;
use strict;
my $regex = qr/(.)\1{9,}/;
print "NO" if "abcdefghijklmno" =~ $regex;
print "YES" if "------------------------" =~ $regex;
print "YES" if "========================" =~ $regex;

#Although the above test script is in Perl, 
#this is very standard regex syntax and should work in any language. 
#In some variants you might need to use more backslashes, 
#e.g. Emacs would make you write \(.\)\1\{9,\} here.
hanux