my ($pattern, $mods) = re::regexp_pattern($re);
...
my $re = eval("qr/\$pattern/$mods") or die $@;