Matching "Wibble A, B, C2, D" using PERL-regex

Question

... Foo, Bar, Wibble A, B, C2, N, J, Baz, Qux, More, More, ...

... Bar, Qux, Wibble D, E, J, N6, O, Foo, Foo, More, More, ... and so on

How do I match highlighted part of these strings using PERL-compatible regular expressions?

It starts with a word "Wibble" and continues with one or two character components separated by a comma until next word.

Answer 1

not-at-all-serious answer: /(Wibble A, B, C2, N, J,)/

Answer 2

From what I can tell, this may work for you:

/Wibble( [A-Z]\d?,)*/

Answer 3

/Wibble((?:\s+[A-Z0-9]{1,2},)*)/

check $1.

of course, when you say uppercase and then have numbers in your example, some exceptions have to be made.

Answer 4

I would try:

/(Wibble(?:\s[A-Z0-9]{1,2},)+)/