Select Code to Download

#!/usr/bin/perl
use 5.014;
...
    my ($id,$taxid,$text) = split(/;/, $line, 3);
    $lucy->add_doc( {id => $id, content => $text} );
}

#!/usr/bin/perl
use 5.014;
...
    print "$hit->{id}\t";
    print "$hit->{content}";
}