You want modifiers inside the regex:

my $modifiers = 'i';
my $text = 'abc';

my $pattern = 'BC';

if ( $text =~ m/(?$modifiers:$pattern)/) {
   print "it matches\n";
}
[download]

Only good for turning on (or off) options imsx. See perlre.