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

...or...

use List::Util 'all';
print "all\n" if all {$var =~ m/$_/} qw(x y z);
[download]

If the patterns contain spaces use a different quoting mechanism.