use warnings;
use utf8;
use open ':encoding(UTF-8)';
+use open ':std', ':encoding(UTF-8)';
my $FILE_EXTENSION = 'txt';
my $BASE_INDENT = ' ';
sub xmlize {
my( $inline, $infile ) = @_;
+ if(!defined $inline || $inline eq "") {
+ return "";
+ }
+
$inline =~ tr/\t/ /;
$inline =~ s/[[:space:]]{2,}/ /g;
$inline =~ s/[[:space:]]+$//;
$inline =~ s/\&(?=[[:space:]])/<ch.ampersand\/>/g;
$inline =~ tr/\"\`/\'/;
$inline =~ s/[\N{U+2018}\N{U+201C}]/<quote>/g;
+ $inline =~ s|[\N{U+2019}\N{U+201D}]([[:alpha:]])|<ch.apos/>$1|g;
$inline =~ s/[\N{U+2019}\N{U+201D}]/<\/quote>/g;
$inline =~ s/[\N{U+2014}]/<ch.endash\/>/g;
$inline =~ s/[\N{U+2014}]/<ch.emdash\/>/g;