x <- c("alexander c/d=(+5/-1)","maximus a/b=(-4/1)", "thor e/d=(+3/-2)")
regmatches(x, regexpr("[-+]?\\d+(?=/)", x, perl=TRUE))
regmatches(x, regexpr("/\\K[-+]?\\d+", x, perl=TRUE))
eCA8LSBjKCJhbGV4YW5kZXIgYy9kPSgrNS8tMSkiLCJtYXhpbXVzIGEvYj0oLTQvMSkiLCAidGhvciBlL2Q9KCszLy0yKSIpCnJlZ21hdGNoZXMoeCwgcmVnZXhwcigiWy0rXT9cXGQrKD89LykiLCB4LCBwZXJsPVRSVUUpKQpyZWdtYXRjaGVzKHgsIHJlZ2V4cHIoIi9cXEtbLStdP1xcZCsiLCB4LCBwZXJsPVRSVUUpKQ==