@tests =qw/1 2 3 7 700 70000 7000 7777 7778 3886200 2200 8488 3406 9100 29389988 7688 5000 20 3408 3404 7648/

$fail = qr/\b(?:7000|7777|7778|3886200|2200|8488|3406|9100|29389988|7688|5000|20|3408|3404|7648)\b/

 perl> for (@tests) { print /$fail/ ? "$_ failed\n" : "$_ passed\n" }
1 passed
2 passed
3 passed
7 passed
700 passed
70000 passed
7000 failed
7777 failed
7778 failed
3886200 failed
2200 failed
8488 failed
3406 failed
9100 failed
29389988 failed
7688 failed
5000 failed
20 failed
3408 failed
3404 failed
7648 failed