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

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