my @required_chars = qw/p e r l/; # Or anything else...
LINE:
while (<>) {
  foreach my $char (@required_chars) {
    next LINE unless index($_, $char) >= 0;
  }
  print;
}