use strict;
use warnings;

my @words = qw(Perl purile pretty reputation reputable);

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

##</code><code>##

Matched Perl
Matched purile
Matched reputable