正则表达式中如何禁用转义？

yhsmengdi

各位：
     我又两个变量，其中用一个匹配另外一个的时候，如果被匹配的字符里面有？则会出现问题。怎么禁止转义来？
     my $a = 'abcd?daf';
        my $b = 'abcd?d';
     if ($a=~ m,^($b),xi){
          print $a；
          }

alexru

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

my $a = 'abcd?daf';
my $b = '?d';
if ($a=~ /\Q$b/xi){
          print $a;
          }

yhsmengdi

thanks