Help for this page

Select Code to Download

Select or download this

$allseq="ctaacjkjfggctaatlkj";
$len=3;
...
 {push(@array, $1);}

print join("-",@array)."\n";

Select or download this
```
ctaac-ctaat
```