{ local $_ = "z r x r t y"; print "all\n" if /x/ and /y/ and /z/; } [download]
In reply to Re: ensure ALL patterns in string by Laurent_R in thread ensure ALL patterns in string by previous