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