open(PAGES, "<pages.txt") || die $!;
my @filenames;
my @titles;
my @headings;
my @xstuff;
while (<PAGES>){
    if (m/^\*{4}filename.ext\*{4}/) {
        s/^\*{4}filename.ext\*{4}//;
        chomp $_; 
        push(@filenames, $_);
    }elsif (m/^\*{4}title\*{4}/) {
        s/^\*{4}title\*{4}//;
        chomp $_;
        push(@titles, $_);
    }elsif (m/^\*{4}heading\*{4}/) {
        s/^\*{4}heading\*{4}//;
        chomp $_;
        push(@headings, $_);
    }else {
        push(@xstuff, $_);
    }
}
  close PAGES;