$str=~s/("(\\\"|[^"])+")/{$_=$1;s|\$|\\\$|g;$_}/ge;