for (@page) {
   s/include\("([^"]+)"\)//;print;
   if(open F $1){while(<F>){print}}
}