my $r="abc|xyz";
my $rx=qr($r);
my $c="XYZ";

my $x1=($c=~/$rx/i);
my $x2=(lc($c)=~/$rx/i);
say "\$x1=$x1";    
say "\$x2=$x2";