a <- "-en eller -et eller (uofficielt) -'en eller (uofficielt) -'et"
b <- "-ten, -ter, -terne"
pat <- "\\B-\\K'?\\w+"
res_a <- regmatches(a, gregexpr(pat, a, perl=TRUE))
unlist(res_a)
res_b <- regmatches(b, gregexpr(pat, b, perl=TRUE))
unlist(res_b)
YSA8LSAiLWVuIGVsbGVyIC1ldCBlbGxlciAodW9mZmljaWVsdCkgLSdlbiBlbGxlciAodW9mZmljaWVsdCkgLSdldCIKYiA8LSAiLXRlbiwgLXRlciwgLXRlcm5lIgpwYXQgPC0gIlxcQi1cXEsnP1xcdysiCnJlc19hIDwtIHJlZ21hdGNoZXMoYSwgZ3JlZ2V4cHIocGF0LCBhLCBwZXJsPVRSVUUpKQp1bmxpc3QocmVzX2EpCnJlc19iIDwtIHJlZ21hdGNoZXMoYiwgZ3JlZ2V4cHIocGF0LCBiLCBwZXJsPVRSVUUpKQp1bmxpc3QocmVzX2Ip