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