return ( $idsl, $tag, $tagno, $id, $sfi, $sfino, $text );
});
+csv_file( 'tsv/NUMTAG.csv', sub {
+ my $line = shift;
+
+ my ( $IDSL, $TAG, $TAGNO, $ID, $SFI, $SFINO, $LTAG, $LTAGNO, $LID, $LSFI, $TXKEY, $TXRES, $VC, $STOPW ) = split(/\t/,$_);
+
+ my $text = vc_casefix( $VC, $TXKEY, $TXRES );
+
+ return ( $IDSL, $TAG, $TAGNO, $ID, $SFI, $SFINO, $text );
+});
+
csv_file( 'tsv/LONTAG.csv', sub {
my $line = shift;