Select Code to Download

my @a = qw( a x z );
{
  local $" = "";
...
    print if /^[@a]{3}$/;  # /o might be good, too
  }
}

my @a = qw( a x z );
my $re = join '', @a;
while (<>) {
  print if /^$re$/;  # again, /o might help
}