Help for this page

Select Code to Download

Select or download this
```
s/(?<=\D)([,.]) *(?=\D)/$1 /g;
```

Select or download this

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