Select Code to Download

@triplets0 = $line            =~ /(...)/g;
@triplets1 = substr($line, 1) =~ /(...)/g;
@triplets2 = substr($line, 2) =~ /(...)/g;

push(@triplets, [ substr($line, $_) =~ /(...)/g ]) for 0..2;

$group_size = 3;
push(@groups, [ substr($line, $_-1) =~ /(.{$group_size})/g ])
   for 1..$group_size;

$line = 'atccatccctttaat';

...
            'taa'
          ]
        ];