strsplit("XYZ-02-01C-33D-2285", "(?<![^.-])\\d{2}\\K(?=[A-Z](?:[.-]|$))|[.-]", perl=TRUE) strsplit("WXYZ-AB-A4K7-01A-13B-J29Q-10", "(?<![^.-])\\d{2}\\K(?=[A-Z](?:[.-]|$))|[.-]", perl=TRUE)
Standard input is empty
[[1]] [1] "XYZ" "02" "01" "C" "33" "D" "2285" [[1]] [1] "WXYZ" "AB" "A4K7" "01" "A" "13" "B" "J29Q" "10"