text <- "You don‘t get “your” money’s worth"
cat(gsub("[“”]", "\"", gsub("[‘’]", "'", text)), sep="\n")
dGV4dCA8LSAiWW91IGRvbuKAmHQgZ2V0IOKAnHlvdXLigJ0gbW9uZXnigJlzIHdvcnRoIgpjYXQoZ3N1YigiW+KAnOKAnV0iLCAiXCIiLCBnc3ViKCJb4oCY4oCZXSIsICInIiwgdGV4dCkpLCBzZXA9IlxuIik=