my ( $fasta, $valid, $invalid );
while ( <STDIN> ) {
    tr/ATCGatcg//cd;
    next unless /[ATCGatcg]/;
    if ( length % 3 ) {
        $invalid++;
        next;
        }
    $valid++;
    $fasta .= $_;
    }

print LOGFILE "Found ", $valid + $invalid, " blocks, joined $valid of them and left out $invalid.\n";