Help for this page

Select Code to Download


  1. or download this
    open my $f1, '<', \<<'';
string1 (C)C(T)A
...
        print "$k $_\n";
    }
}
  2. or download this
    string1 (C)C(T)A
string1 (C)C(C)A
...
string2 T(C)GG(A)GGG(A)
string2 T(C)GG(T)GGG(G)
string2 T(C)GG(T)GGG(A)