Select Code to Download

my $main_re = join '|', map "(?:$_)", @REGEXPS;
my $idx      = 0;
...

  $idx++;
}

my @KEEP = grep { not /$main_re/ } @SYSLOG;