text <- "In Spanish, Brasil is written as <Brasil>, for some reason."
gsub("<[^<>]*>(*SKIP)(*F)|Brasil", "Brazil", text, perl=TRUE)
gsub("(?<!<(?=\\w+>))Brasil", "Brazil", text, perl=TRUE)