36     chomp $line;
 37     my @vec = split /\t/, $line;
 38     my @vec2 = ($vec[1]=~/[a-z]+/g);
 39     my $size = scalar @vec2;
 40     if ($size ==1)                                                                                               
 41     {  
 42         print FOUT "$line\n";                                                          
 43     }                                                                                  
 44