Select Code to Download

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

$ perl -wle'use charnames (); for (0..255) { chr($_) =~ /\pP/ and prin
+t chr($_)
," ($_): ", charnames::viacode($_) }'
...
· (183): MIDDLE DOT
» (187): RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
¿ (191): INVERTED QUESTION MARK