Select Code to Download

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

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