in reply to Fast Way to Split String in to Chunk of Equal Length

my @parts = $seq =~ /.{3}/sg;
my @parts = unpack('(a3)*', $seq);

You didn't specify how you want to handle strings whose length isn't a multiple of three, so I presume it can't happen.