Help for this page

Select Code to Download

Select or download this

#!usr/bin/perl-w
use strict;
my $seq1="AAAGATCGTG";
...
print"\n No. of Substitutions:\n
  A2G=$A2G; G2A=$G2A; C2T=$C2T; T2C=$T2C; A2T=$A2T; A2C=$A2C; G2T=$G2T
+; G2C=$G2C.\n";
exit;