s/([^"\\]+|\\.)|("(?:[^"\\]+|\\.)*")/
  defined $1 ? $1 : do {local $_ = $2; s'\$'\$'g; $_}/ge;
[download]

Abigail