#!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.