Select Code to Download

sub checkxtlist (@) {
   my @Excluded = qw(Table_A Table_B);
...
   my @Accepted = grep { !$Excludes{$_} } @_;
   my $status = (@_ == @Accepted) ? "good" : "bad";
}

sub checkxtpatlist ($@) {
   my $pat = shift;
...
}

my $s = checkxtpatlist(qr/Table_[ABC]/,@tables);