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

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

I apologize in advance for what may end up being a simple solution, but I'm having a problem even framing the issue correctly to even search for a solution.

The problem:
I need to take a string and find the number of 3 contiguous letters.

For example, if I had the string "computer", I need to build an array that would contain the following elements:
com
omp
mpu
put
ute
ter

As I'm typing this, I'm starting to think that I might need to use a while loop that uses a counter to substring the word and then increment its starting point by one until the end of the string.

Any other thoughts that I can use to try to solve this is greatly appreciated!