Select Code to Download

                                 (
                     (       (
...
                   ')').('`'|',').('`'|('$')).
                  '\\'.'\\'.('`'|'.').'\\'.'"'
                  .';'.('!'^'+').'"'.'}'.')');

Eval-group not allowed at runtime, use re 'eval' in regex m/(?{eval"pr
+int\"hello world\\n\";
"})/ at v1.pl line 25.

perl -MO=Deparse v1.pl

'' =~ /(?{eval"print \"hello world\\n\";\n"})/;
v1.pl syntax OK

use re 'eval';

use if $] >= 5.017, re => 'eval';

use if $^V && $^V gt 5.17.0, re => 'eval';