Select Code to Download

GetOptions(
    'accept|a=s' => \my @accept,
...
    return map $_->[0],
        grep { my $f = $_; all { $_->($f->[1]) } @filter } @_;
}