Select Code to Download

abc "a\"bc$xyz$abc$x$y" $bla'h, $blah
hello k\$nob
this is "\"'abc$xy$z\"" test "$"
a$$bc "$$abc$xyz$abc$" blah, $$, blah

abc "a\"bc\$xyz\$abc\$x\$y" $bla'h, $blah
hello k\$nob
this is "\"'abc\$xy\$z\"" test "\$"
a$$bc "\$\$abc\$xyz\$abc\$" blah, $$, blah

my $str = <<'EOS';
abc "a\"bc$xyz$abc$x$y" $bla'h, $blah
...
# Escape $ in quoted fields only.
/^"/ && s/\$/\\\$/g for @fields;
print @fields;