A couple of ways:

@elements = split /(?<=,)/, $text;
[download]

or

@elements = $text =~ /([^,]+,?)/g;
[download]