perl -e '$a="1,23, 23, df,sd.asf,\"\"";$a=~s/(?<=\D)([,.]) *(?=\D)/$1 /g;print "$a\n";'
1,23, 23, df, sd. asf, ""