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

##</code><code>##

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