Select Code to Download

    my $foo = "`ls`";    # "Evil" command
    my $bar = "$foo";

    print $bar,"\n";

     my $foo = '(?{die})';
     s/$foo/XYZ/g; # Eval-group not allowed at runtime, use re 'eval'