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

##</code><code>##

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