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