- fixed replacement for internal headings

lib/SLUB/LZA/TA/Output/CSV.pm

@@ -12,7 +12,7 @@ sub print_results($headers_ref, $result_ref) {
     binmode(STDOUT, ':encoding(UTF-8)');
     say join(",", map {
         my $l = $_;
-        $l=~s/_//;
+        $l=~s/^_//;
         $l=~s/(.*)/"$1"/;
         $l;
     } @{$headers_ref});

lib/SLUB/LZA/TA/Output/RSV.pm

@@ -18,7 +18,7 @@ sub print_results($header_ref, $result_ref) {
     binmode(STDOUT, ':bytes');
     print join(CHR_VALUE_TERMINATOR, map {
         my $l = $_;
-        $l =~ s/_//;
+        $l =~ s/^_//;
         $l;
     } @{$header_ref}) . CHR_VALUE_TERMINATOR;
     print CHR_ROW_TERMINATOR;