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