Select Code to Download

my @required_chars = qw/p e r l/; # Or anything else...
LINE:
...
  }
  print;
}

#!perl -w
# Warning - silly way of solving problem
...
  my $re = "(" . join("|", @res) . ")";
  return qr/$re/;
}