See split. You can give an extra argument called LIMIT:

 my @array =  split m/,/ , $_, -1;
[download]

From perldoc -f split:

If LIMIT is negative, it is treated as if it were instead arbitrarily large; as many fields as possible are produced.