Select Code to Download

use strict;
use warnings;
...
}
close $APRI2_in;
close $out_fh or die $!;

perl -plaF/\t/ -e '$_ = "$F[1]\t$F[2]"' infile > outfile