print "all\n" if 3 == grep {$var =~ m/$_/} qw(x y z);