Before <- "d\\12"
gsub("([\\d]+)", "<\\1>", Before)