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