It looks like what someone is trying to do is take the text in $pages[$PG] and trim off everything after the final "end" line. It also looks like they don't understand array slices.

Your code appears to discard everything in $pages[$PG] after the word "end" (on a line by itself.)

Note that this should probably be referring to $pages[$PG], rather than @pages[$PG].

Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.
            --Friedrich Nietzsche

...what's frustrating (to a project lead, a maintenance programmer, or an instructor) is that it would work as published.

Sometime, programmers go for many months (or longer) thinking that:


@table[1]
[download]


is the same as:


$table[1]
[download]


because it works the same most of the time. It's only when something breaks that we start to truly care about the correct way to do things.

And of course we all know what happens next year. :-)

...all the world looks like -well- all the world, when your hammer is perl.
---v

If you want to leave $pages[$PG] alone if the pattern doesn't match, use a substitution instead:

$pages[$PG] =~ s/(.*\nend\n).*/$1/s;
[download]

-- Mike

--
just,my${.02}