正则表达式 – Perl RE匹配：如何将变量用于RE标志？

my $string = "This is a test";
say "String matches" if $string =~ /this is a test/;          # Doesn't print
say "String sort of matches" if string =~ /this is a test/i;  # Prints

将i标志添加到RE匹配的末尾会导致匹配忽略大小写.

我有一个程序,我在其中指定要在单独的数据文件中匹配的正则表达式.这很好用.但是,我希望能够扩展它并能够指定在检查匹配时使用的正则表达式标志.

但是,在Perl中,那些RE标志不能在标量中：

my $re_flags = "i";
my $string = "This is a test";
say "This sort of matches" if $string =~ /this is a test/$re_flags;

这导致：

Scalar found where operator expected at,line,near "/this is a test/$re_flags"  
(Missing operator before $re_flags?)
syntax error at ... line ...,near "/this is a test/$re_flags"
Execution of ... aborted due to compilation errors.

有没有办法在评估正则表达式时使用存储在标量变量中的RE标志？

我知道我可以使用eval：

eval qq(say "This worked!" if $string =~ /this is a test/$re_flags;);

但我想要一个更好的方法来做到这一点.