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