$s =~ s/(?<=(?<!\d(?=[.,]\d))\p{P})(?!\s)/ /g;