print "all in m8\n" if $var =~ /.*x.*y.*z.*/;