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