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