Help for this page

Select Code to Download

Select or download this

$ perl -Mstrict -wle '
> my $seq  = q{GGGGGGGAGAAAAAAAAAAAAAAAGAAGGA};
...
> print qq{@cts};'
11 3 1 1
$