while (<>) {
    next if !/p/;
    next if !/e/;
    next if !/r/;
    next if !/l/;
    print;
}