Select Code to Download

system "clear";
print "Palindrome - gamma version\n";
...
    }
print "Number of 2bp palindromes: ", $count_of_2, "\n";
exit;

CGACAGCTACGATCGTAC
CAGTATCATCACTACGTA
CACGAGAGTACGATCGAC
......etc.........

$dna=~ tr/ATGC/atgc/;