$ perl -Mre=eval -e '/ (??{ eval "qr<(?{1})>" }) $_ /x'
$ perl -Mre=eval -e '/ (??{ eval "q<(?{1})>" }) $_ /x'
Eval-group not allowed ...