{
    local $_ = "z  r x r t y";
    print "all\n" if /x/ and /y/ and /z/;
}