Re^2: A Quick Regex Question

Select or download this

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

Select or download this

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

Select or download this

# cat sensible.pl
print "Matched $_\n" if tr/pP// && tr/eE// && tr/rR// && tr/lL//;
...
# perl -MO=Deparse silly.pl
print "Matched $_\n" if tr/Pp// and tr/Ee// and tr/Rr// and tr/Ll//;
silly.pl syntax OK

Select Code to Download