Select Code to Download

my $input = '(?{ print("Hello World!\\n") })';

...
   '' =~ /$input/;
};
warn("Died: $@") if $@;

Without "use re 'eval';":
Died: Eval-group not allowed at runtime, use re 'eval' in regex m/(?{ 
+print("Hello World!\n") })/.

With "use re 'eval';":
Hello World!