note
Rhandom
Here is a small snippet that should do what you were asking for (more or less):<br><br>
<code>
perl -E 'my $str = "/regex/i";
my ($pat, $flags) = $str =~ m{^/(.+)/([imsx]*)\z}
? ($1, $2) : die "Bad regex";
my $qr = qr/(?$flags:$pat)/;
say qq{Matched "$_" with $qr}
for grep {$_ =~ $qr} qw(foo bar baz reGex)'
Matched "reGex" with (?^u:(?i:regex))
</code>
<br><br>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-1598">
<font size=1>my @a=qw(random brilliant braindead); print $a[rand(@a)];</font>
</div></div>
1151414
1151414