If all your code did was that very small snippet then it would indeed be an infinite loop. However, the loop was given as an example and the comment was supposed to be replaced with code that does something useful

the inside of the loop should look something like: (untested)

push @lines, substr $_, 0, length $1, "";
[download]

Nuance