Help for this page

Select Code to Download

Select or download this

use Modern::Perl;
use Data::Dump qw/dump/;

...
my @strings = $seq =~ /(.{3})/g ;

say dump(@strings);

Select or download this
```
("CTT", "CGA", "ATT")
```