Help for this page

Select Code to Download

Select or download this

my $line ='atgcatccctttaat';
my @trips = unpack('a3X2' x (length($line)-2), $line);
print join "\n", @trips;

Select or download this
```
atg
tgc
...
tta
taa
aat
```