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

##</code><code>##

for (<DATA>) {
    chomp;
    print "$_: all in m8\n" if /.*x.*y.*z.*/;
}

__DATA__
foo
xoo
fyo
foz
xyo
fyz
xyz

##</code><code>##

my %hash = ( x => 1, y => 1, z => 1 );

for (<DATA>) {
    chomp;
    my $in = 0;
    my %hash = ( x => 1, y => 1, z => 1 );
    for my $x (split //, $_) {
        delete $hash{$x} and $in++;
    }
    print "$_: all in m8\n" if $in == 3;
}