sub mylineOK {
  my ($line) = @_;
  my @ebase = ("A","T");
  my $limit = 15;

  for ( @ebase ) {
    my $cnt = ( $line =~ s/$_//g );
    return 0 if ( $cnt >= $limit );
  }
  return 1;
}