Select Code to Download

my $str = <<'EOS';
abc "a\"bc$xyz$abc$x$y" $bla'h, $blah
...
        $t . $q;      # changed line
    ]xseg;
print $str;

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\$xy\\z\$abc\$x\$y\\" $bla'h, "\$baz"