my @grep = map "grep /$_/,", qw/
   regex1
   regex2
   .
   .
   regex 140
/;

my @match = eval join ' ', @grep, '@array';