#!/usr/bin/perl -w
open IN,"ARGV[0]" or die $!;
open OUT,">ARGV[1]" or die $!;
while(<IN>){
chomp;
my @arr=split /\t/;
if(($_=~/^#/)||($arr[]=~/^INDEL.*/)||($arr[] =~ /,/)||($arr[] < 20)){ ###提取信息
next;
}
else{
print OUT $_,"\n";
}
}
close IN;
close OUT;
