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