Interesting. I wondered why the look-ahead (and not just /,/g), but now I see.

Note that you can do this:

   push @p, pos $l while $l =~ m{(?=,)}g;
[download]

As:

   push @p, @- while $l =~ /,/g;
[download]