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

    print $bar,"\n";

##</code><code>##

    `ls`

##</code><code>##

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