in reply to Replace the double quote escape sequence as unescape sequence

Try This

my $string = qq{"Hello "World" Good Morning"};
$string=~s/"/\\"/g;
print $string;

[download]
Output : \"Hello \"World\" Good Morning\"

In Section Seekers of Perl Wisdom