I would do:

$modifiers =~ tr/cgimosx//cd;  # remove illegal mods
$regex = eval qq{ qr/\$regex/$modifiers };
[download]

japhy -- Perl and Regex Hacker