while ($line = <INPUT>) {
   if ($line =~ tr/ACGT/ACGT/ > 250) { print $line; }
}