Select Code to Download

use strict; 
use warnings;
...
(my $quoted = $str) =~ s/\"/\\\"/g;

print "$str\n$quoted\n";

A string with a "double quoted" string in it
A string with a \"double quoted\" string in it