$_ = "1.2.a.b";
s/(?!\d[.,]\d)([^\w\s])(?!\s)/$1 /g;
print;