my $base = ("A"|"C"|"G"|"T");

##</code><code>##

while (<INPUT>)
{
    print if /^[ATCG]+$/ && length >= $ideal;
}

##</code><code>##

    print if /^[ATCG]{250,}$/;