x <- "DEL.Xp22.11..ZFX."sub("\\.{2}([^.]+)\\.$", "(\\1)", x)
Standard input is empty
[1] "DEL.Xp22.11(ZFX)"
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!