x <- c("FELON IN POSSESSION OF AMMUNITION (ACTUAL POSSESSION) (79023)",
"FAIL TO DISPLAY REGISTRATION - POSSESSION REQUIRED (320.0605(1))")
sub(".*(\\(((?:[^()]++|(?1))*)\\))$", "\\2", x, perl=TRUE)
eCA8LSBjKCJGRUxPTiBJTiBQT1NTRVNTSU9OIE9GIEFNTVVOSVRJT04gKEFDVFVBTCBQT1NTRVNTSU9OKSAoNzkwMjMpIiwKIkZBSUwgVE8gRElTUExBWSBSRUdJU1RSQVRJT04gLSBQT1NTRVNTSU9OIFJFUVVJUkVEICgzMjAuMDYwNSgxKSkiKQpzdWIoIi4qKFxcKCgoPzpbXigpXSsrfCg/MSkpKilcXCkpJCIsICJcXDIiLCB4LCBwZXJsPVRSVUUp