Nope, doesn't work.

local $_ = q[abc \"$a"bc$xyz$abc$x$y" $bla'h];
s/("(\\\"|[^"])+")/{$_=$1;s|\$|\\\$|g;$_}/ge;
print;
__END__
abc \"\$a"bc$xyz$abc$x$y" $bla'h
[download]

Makeshifts last the longest.