1while (<>) {
2    chomp;
3    my @data = split "\t";
4    die unless @data == 4;
5    next if $data[2] == -1 && $data[3] == -1;
6    print "$data[0]\t$data[1]\n";
7}
8