相关疑难解决方法(0)

有没有一种简单的方法可以将正则表达式修饰符(如"i")添加到引用的正则表达式中？例如:

$pat = qr/F(o+)B(a+)r/;
$newpat = $pat . 'i'; # This doesn't work

我能想到的唯一方法就是print "$pat\n"回过头来(?-xism:F(o+)B(a+)r)尝试?-xism:用替换去除'i'