Select Code to Download

  DB<56> $_ = "AAATTTAGTTCTTAAGGCTGACATCGGTTTACGTCAGCGTTACCCCCCAAGTTAT
+TGGGGACTTT";

...
4  'TTT'
5  'TTT'
  DB<59>

  DB<59> x sort { length($b) <=> length($a) }  /(AA+|CC+|GG+|TT+)/g
0  'CCCCCC'
...
13  'TT'
14  'TT'
  DB<60>