A regex is the wrong tool for this job. Use a hash with those numbers as keys.

use vars '%boolhash';
@boolhash{ qw(7000 7777 7778
              3886200 2200 8488
              3406 9100 29389988
              7688 5000 20 3408
              3404 7648)
         } = ();

sub mytest {
    not exists $boolhash{ $_[0] };
}
[download]

That will be faster and tidier, and you can add values to %boolhash on the fly.

After Compline,
Zaxo