Select Code to Download

my $fail = qr/^     # Start looking at the begining of the string
    (?!             # and immediately fail if you find
...
    )               # If you got this far with failing (ie. matching t
+he enclosed.
    \d+$            # then match if the whole string consists of digit
+s.
/x

my $fail = qr/^(?!(?:7000|7777|7778|3886200|2200|8488|3406|9100|293899
+88|7688|5000|20|3408|3404|7648)$)\d+$/;