+ s/([$asian])[$space]+/$1/go unless($opt_preserve_spaces);
+ s/[$space]+([$asian])/$1/go unless($opt_preserve_spaces);
+ s/([$asian])\s*([^$asian$space])/$1 $2/go;
+ s/([^$asian$idc])\s*([$asian])/$1 $2/go;
+ s/\-\-\-/pack("U",0x2014)/geo;# EM DASH
+ s/\-\-/pack("U",0x2013)/geo;# EN DASH
+# s/\`\`/pack("U",0x201f)/geo;# DOUBLE HIGH-REVERSED-9 QUOTATION MARK
+ s/\`\`/pack("U",0x201c)/geo;# _TeX compatible_
+# s/\`/pack("U",0x201b)/geo;# SINGLE HIGH-REVERSED-9 QUOTATION MARK
+ s/\`/pack("U",0x2018)/geo;# _TeX compatible_
+ s/\'\'/pack("U",0x201d)/geo;# RIGHT DOUBLE QUOTATION MARK
+ s/\'/pack("U",0x2019)/geo;# RIGHT DOUBLE QUOTATION MARK