Or if the question you want to answer is "Is there a character that is repeated within the string?" then you can:

print "'$1' repeated\n" if "12345617890" =~ /(.).*?\1/;
[download]

Prints:

'1' repeated
[download]