$text =~ s/(^|(?<=\s))"(?=\w)/“/gs;

##</code><code>##

------------
:Wq
Not an editor command: Wq