gsub("^([^.]*\\.)|\\.", "\\1", "59.34343.23")
Standard input is empty
[1] "59.3434323"
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!