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