Select Code to Download

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

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