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