*giggle* and also easily unbypassed

$ 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.
[download]