Help for this page

Select Code to Download


  1. or download this
       push @p, pos $l while $l =~ m{(?=,)}g;
  2. or download this
       push @p, @- while $l =~ /,/g;