$string = "atccatccctttaat";
@triplets0 = $line=~ /(...)/;
##</code><code>##

use strict;
use warnings;
use Data::Dumper;

my $string = "atccatccctttaat";
my @triplets = $string =~ /(...)/;

print Dumper (\@triplets);

##</code><code>##

$VAR1 = [
          'atc'
        ];