#!/bin/env perl
use strict;
use warnings;

use List::Util qw(all);

my $var = 'xyz';

if ( all { $var =~ $_ } ( qr/x/, qr/y/, qr/z/ ) ) {
  print "all in m8\n";
}