my $augmented_pattern = "$re";
...
my $re = qr/$augmented_pattern/;

##</code><code>##

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