$re = "(?:$flags:$core)";
if($input =~ $re) { ... }

##</code><code>##

$re = "(?$flags:$core)";
if($input =~ $re) { ... }

##</code><code>##

$qr = qr/$re/;