$#array = @array -1;

##</code><code>##

for ($i=0; $i <@filenames; $i++) 

##</code><code>##

# For tidyness, change:
\*\*\*\*

# in your regexp, to:
\*{4}

# for sanity control, change
open(PAGES, "<pages.txt");

# to
open(PAGES, "<pages.txt") || die $!;

# (and do the same for you other filehandle opens)

# and I'm pretty sure that
print FILE QQ($temlate[0] ...

# should be
print FILE qq($temlate[0] ...