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