I think you have it. It looks to me like,

    $code = <<EOS;
sub$real_proto {
    local(\$", \$!) = (', ', defined(wantarray)? \$! : 0);
EOS
[download]

would fix it. Untested.