X <- c("L_1_3", "L_2_23", "L_3_91", "L_3_16")
gsub("L_\\d\\d?_", "", X)