use strict;
use warnings;

open my $APRI2_in, '<', 'path_to_infile.txt'  or die $!;
open my $out_fh,   '>', 'path_to_outfile.txt' or die $!;
while( <$APRI2_in> ) {
    my @columns = split /\t/, $_;
    print $out_fh "$columns[1]\t$columns[2]\n";
}
close $APRI2_in;
close $out_fh or die $!;

##</code><code>##

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