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