Select Code to Download

$string = "atccatccctttaat";
@triplets0 = $line=~ /(...)/;

use strict;
use warnings;
...
my @triplets = $string =~ /(...)/;

print Dumper (\@triplets);

$VAR1 = [
          'atc'
        ];