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