如何使已存在的正则表达式不区分大小写？

Question

如何在Perl中创建一个正则表达式已编译不区分大小写？

my $regex = qr/b/;
if ( 'aBc' =~ $regex ) { print "matches\n" }

这不起作用：

$regex = qr/$regex/i;

也不是这样：

$regex = "(?i:$regex)";

也不是这个

$regex = "(?i)$regex";