Help for this page
>perl -wMstrict -le "my $sequence = 'GGGGGGGAGAAAAAAAAAAAAAAAGAAGGA'; ... GAAGG: 1 GGAGA: 1 GGGGG: 3