t$ = "a!===b=!=c"
s$ = "==,!=,="

dim n$(1)

n = token(s$, n$(), ",")
dim p(n)

do
    l = len(t$)
    j = 0
    for i = 1 to n
        p(i) = instr(t$, n$(i))
        if p(i) and p(i) < l then l = p(i) : j = i end if
    next
    if not j print t$ : break
    print left$(t$, l - 1), " with separator ", n$(j)
    t$ = right$(t$, len(t$) - (l + len(n$(j))) + 1)
loop