#!/usr/bin/perl -w


open (FILE,"$ARGV[0]") or die;
open (WRITE,">ca_0.01_1.txt");
@list =<FILE>;
close (FILE);
my $f =join ("",@list);

my @t = split ("\n",$f);

foreach (@t) {

my @x = split("\t",$_);

 if(($x[1]<=0.01) && ($x[0]=="0"))   {
 next if  ( $x[2]>=-8);
 next if  ($x[2]<-9);
#next if ($x[0]!=0);
#next if ($x[0]!=1);
print WRITE @x,"\n";

}
}
close (WRITE);
exit;