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

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

print Dumper (\@triplets);