Select Code to Download

use strict;
use warnings;
...
for (@words) {
    print "Matched $_\n" if tr/pP// && tr/eE// && tr/rR// && tr/lL//;
}

Matched Perl
Matched purile
Matched reputable