Select Code to Download

  DB<22> p $_ = join "," , A..E
A,B,C,D,E
...
  DB<26> p m/(,.*?$)/ # shortest possibility from first comma to end o
+f line
,B,C,D,E
  DB<27>

  DB<27> p m/(,[^,]*)$/ # comma followed by non-commas till EOL
,E

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

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

  DB<35>