- fixed header output

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

@@ -16,7 +16,11 @@ use namespace::autoclean -except => qr{SLUB::LZA::TA::.*};
 
 sub print_results($header_ref, $result_ref) {
     binmode(STDOUT, ':bytes');
-    print join(CHR_VALUE_TERMINATOR, @{$header_ref}) . CHR_VALUE_TERMINATOR;
+    print join(CHR_VALUE_TERMINATOR, map {
+        my $l = $_;
+        $l =~ s/_//;
+        $l;
+    } @{$header_ref}) . CHR_VALUE_TERMINATOR;
     print CHR_ROW_TERMINATOR;
     print join("", map {
         my $line = $_;