Select Code to Download

  DB<111> print $_ !~ /(\d).*\1/ ? "$_ ok\n" :"$_ has <$1>\n" for qw/0
+12 0102 01233/
012 ok
0102 has <0>
01233 has <3>