$text =~ s/\s+,\s*|,\s+/,/g;