ReplaceList[p + q + r, a__ + b__ :> {a}]
returns {{p}, {q}, {r}, {p, q}, {p, r}, {q, r}}
which is only half as many results as I'd expect. I was just about to post a question for this but after some searching I found mathematica.stackexchange.com/q/121564/2305 and now I'm not sure whether this is just another incarnation of this bug or whether this is some other behaviour.