name<-c("Dr. T. (Tom) Bailey (m), UCL- Physics" , "Dr. B.K. (Barbara) Blue (f), Oxford - Political Science")
res <- sub(".*\\)\\s+(.*)\\s+\\([mf]\\).*", "\\1", name)
res
bmFtZTwtYygiRHIuIFQuIChUb20pIEJhaWxleSAobSksIFVDTC0gUGh5c2ljcyIgLCAiRHIuIEIuSy4gKEJhcmJhcmEpIEJsdWUgKGYpLCBPeGZvcmQgLSBQb2xpdGljYWwgU2NpZW5jZSIpCnJlcyA8LSBzdWIoIi4qXFwpXFxzKyguKilcXHMrXFwoW21mXVxcKS4qIiwgIlxcMSIsIG5hbWUpCnJlcw==