x <- c("lkas32kj_123_3.21", "lkas32kj_123_3.21|l3kj_12_0.21|123e_4_32.1", "+++NO+++")
rx <- "[[:alnum:]]+(?:_\\d+){2}(?:\\.\\d+)?"
grepl(paste0("^", rx, "(?:\\|", rx ,")*$"), x)
eCA8LSBjKCJsa2FzMzJral8xMjNfMy4yMSIsICJsa2FzMzJral8xMjNfMy4yMXxsM2tqXzEyXzAuMjF8MTIzZV80XzMyLjEiLCAiKysrTk8rKysiKQpyeCA8LSAiW1s6YWxudW06XV0rKD86X1xcZCspezJ9KD86XFwuXFxkKyk/IgpncmVwbChwYXN0ZTAoIl4iLCByeCwgIig/OlxcfCIsIHJ4ICwiKSokIiksIHgpCg==