$uncompiled_re = "(?i-xsm:\\w)";
mysub($uncomiled_re);

$compiled_re = qr/\w/i;
mysub($comiled_re);