I have data set like this
x<-c(\'ASON10_SHROFF-1/3/16/1/02-Au4P\',\'ASON10_SHROFF-1/3/16/1/06-Au4P\',\'ASON10_SHROFF-1/3/16/1/09-Au4P\', \'ASON10_SHROFF-1/