diff --git a/script/korapxml2conllu b/script/korapxml2conllu
index 6b84910..2dd912e 100755
--- a/script/korapxml2conllu
+++ b/script/korapxml2conllu
@@ -10,6 +10,7 @@
 
 my $MAX_SENTENCE_LENGTH=10000;
 my $COMMENT_START="#";
+my $COMMENT_END="";
 
 my $test=0;
 my $text_no=0;
@@ -117,7 +118,7 @@
 
   open (MORPHO_OR_TOKENPIPE, $morphoOrTokenCommand) or die "cannot unzip $morpho_zip";
   open (PLAINTEXTPIPE, $plaintextAndStructureCommand) or die "cannot unzip $data_zip";
-  print "$COMMENT_START foundry = $foundry\n";
+  print "$COMMENT_START foundry = $foundry$COMMENT_END\n";
   while (<MORPHO_OR_TOKENPIPE>) {
     if (/^  inflating: (.*)/) {
       $filename=$1;
@@ -146,7 +147,7 @@
           last if(m@</layer>@);
         }
       }
-      print STDOUT "$COMMENT_START filename = $filename\n$COMMENT_START text_id = $docid\n";
+      print STDOUT "$COMMENT_START filename = $filename$COMMENT_END\n$COMMENT_START text_id = $docid$COMMENT_END\n";
       $log->debug("Analyzing $docid");
     } elsif (m@^\s*<f\s+.*name="([^"]+)">([^<]+)</f>@) {
       if ($1 eq "lemma") {
@@ -239,11 +240,11 @@
   foreach my $t (@current_lines) {
     print STDOUT " $t->[0]";
   }
-  print "\n$COMMENT_START end_offsets = ", $current_lines[$#current_lines]->[1];
+  print "$COMMENT_END\n$COMMENT_START end_offsets = ", $current_lines[$#current_lines]->[1];
   foreach my $t (@current_lines) {
     print STDOUT " $t->[1]";
   }
-  print "\n";
+  print "$COMMENT_END\n";
 }
 
 sub closeDoc {