x <- c("Set", "Set Value", "Set(Value)")
grep('^Set(?:\\s+Value)?$', x, value=TRUE)
grep('\\bSet(?!\\(Value\\))(?:\\s+Value)?\\b', x, perl=TRUE, value=TRUE)
eCA8LSBjKCJTZXQiLCAiU2V0IFZhbHVlIiwgIlNldChWYWx1ZSkiKQpncmVwKCdeU2V0KD86XFxzK1ZhbHVlKT8kJywgeCwgdmFsdWU9VFJVRSkKZ3JlcCgnXFxiU2V0KD8hXFwoVmFsdWVcXCkpKD86XFxzK1ZhbHVlKT9cXGInLCB4LCBwZXJsPVRSVUUsIHZhbHVlPVRSVUUp