$ perl -e" my $re = shift;  1 =~ /$re/; "  "(??{die666})"
Eval-group not allowed at runtime, use re 'eval' in regex m/(??{die666})/ at -e line 1.