Select Code to Download

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

...
13  'TT'
14  'TT'
  DB<43>

  DB<43> print join "\n", sort { length($b)<=>length($a) } @substr
CCCCCC
...
TT
TT
  DB<44>