Fix reference Unicode char (not write it out)

1 files changed, 3 insertions, 2 deletions

diff --git a/mkmd2mdwn-default b/mkmd2mdwn-default
index 588b61e..7e9fd9c 100755
--- a/mkmd2mdwn-default
+++ b/mkmd2mdwn-default
@@ -8,6 +8,7 @@ use Lingua::Sentence;
 
 use strict;
 use warnings;
+use charnames ':full';
 
 # setup sentence splitter
 my $splitter = Lingua::Sentence->new("en");
@@ -27,8 +28,8 @@ $_ = $splitter->split($_);
 
 # split after comma, and before and after ellipsis
 #s/,\s(?=[^\v=]*\v)/,\n/mg;
-s/\h+(\(…\))/\n$1/mg;
-s/(\(…\))\h+/$1\n/mg;
+s/\h+(\(\N{HORIZONTAL ELLIPSIS}\))/\n$1/mg;
+s/(\(\N{HORIZONTAL ELLIPSIS}\))\h+/$1\n/mg;
 
 write_file( $stem . '.mdwn', $_ );