my @parts = $seq =~ /.{3}/sg;

##</code><code>##

my @parts = unpack('(a3)*', $seq);