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