my $seq = 'ACTGACTGATGCATGCATGCATGCCGTACGTACGTACGT';

my @groups = unpack "(A3)*", $seq;