library(data.table)
x1<-fread("../input/producto_tabla.csv")
#head(x)
#x="Burritos Sincro 170g CU LON 53"
x=x1[[2]]
x=gsub(" [0-9]*$", "", x)
x = gsub("([0-9]+)(g|Kg|ml|kg) ", "|\\1|\\2|", x)
x = gsub(" ([0-9]+[pP][Qq]*) ", "|p|\\1", x)
x[c(60,82,41,  388)]
cbind(x,x1[[2]])