Select Code to Download

use strict;
use warnings;
open my $as, '<', "data" or die "data open failed: $!\n";
...
        print "$split[0]\t$split[1]\t$split[3]\n";
    }
}