http://www.perlmonks.org?node_id=939987

neversaint has asked for the wisdom of the Perl Monks concerning the following question:

Dear Masters,
I have string of length in multiple of 3.
my $seq = "CTTCGAATT"; # in this case length of 9
Is there a way I can split it into equal length of 3? Such that in the end I have this array:
$VAR = ["CTT", "CGA", "ATT"];
In practice I have around 10 million of such string to break. I can always use iteration with 'substr' command. But it's very slow. Is there a faster way to do it?

---
neversaint and everlastingly indebted.......