DB<34> ; m/(,[^,]*?) (?{say $1}) $/x #show all intermediate attempts to match $1
,
,B
,
,C
,
,D
,
,E

  DB<35>