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;
Output : \"Hello \"World\" Good Morning\"