DB<32> ; m/(,[^,]*) (?{say $1}) $/x #show all intermediate attempts to match $1 until it doesn't fail
,B
,
,C
,
,D
,
,E
  DB<33>