my $str = <<'EOS';
"\"$x\""
EOS
$str =~ s[("[^"]*?(?<!\\)")] 
         {
             (my $temp = $1) =~ s[(?<!\\)\$][\Q\$]g;
             $temp;
         }mge;
print $str;