print "Matched $_\n" if tr/pP// && tr/eE// && tr/rR// && tr/lL//;

##</code><code>##

y&pP&&&&y&eE&&&&y&rR&&&&y&lL&&&&print"Matched $_\n";

##</code><code>##

# cat sensible.pl
print "Matched $_\n" if tr/pP// && tr/eE// && tr/rR// && tr/lL//;

# perl -MO=Deparse sensible.pl
print "Matched $_\n" if tr/Pp// and tr/Ee// and tr/Rr// and tr/Ll//;
sensible.pl syntax OK

# cat silly.pl
y&pP&&&&y&eE&&&&y&rR&&&&y&lL&&&&print"Matched $_\n";

# perl -MO=Deparse silly.pl
print "Matched $_\n" if tr/Pp// and tr/Ee// and tr/Rr// and tr/Ll//;
silly.pl syntax OK