Select Code to Download

INPUT: while (<IN>) {
 for my $match (@list) {
...
 }
 print;
}

my $re = join "|", @list;
while ... {
 print unless /$re/;
}