#!/usr/bin/perl

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

while(<DATA>) {
        chomp;
        my @triplets = $_ =~ /(.{1,3})/gs;
        print Dumper \@triplets;
}
__DATA__
atgcatccctttaat
tctgtctga