use strict;
use warnings;

my $x = "";
my $y;
my $z = "Z";

if ($x =~ /X/ or $y =~ /Y/ or $z =~ /Z/) {
    print "cond true\n"
}