Help for this page

Select Code to Download


  1. or download this
    while(/(.)/g) {
my $letter= uc $1;
...
elsif ($letter=="C") { $sub="G";}
print "  $len\t$sub\n"; 
} # close while
  2. or download this
    A  1    T
A  1    T
...
T  1    T
T  1    T