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