$text =~ s/(?: (?<=\s) | (?<=\A) ) " (?=\w) /“/gx;