Select Code to Download

    abc "a\"bc$xy\\z$abc$x­$y\\" $bla'h, "$baz"
    #                        ^^

    $str =~ s[
        \G            # Don't skip anything
...
        $q =~ s[\$][\\\$]g;
        $1 . $q;
    ]xseg;