Help for this page

Select Code to Download


  1. or download this
    my $base = ("A"|"C"|"G"|"T");
  2. or download this
    while (<INPUT>)
{
    print if /^[ATCG]+$/ && length >= $ideal;
}
  3. or download this
        print if /^[ATCG]{250,}$/;