my $rx = 'abc';
my $qr = qr/$rx/;
if ('ABC' =~ /$qr/i) {
    print "ABC matches /abc/i\n"
}
else {
    print "ABC does not match /abc/i\n"
}