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