use lib ("/home/myusername/perl-lib");

##</code><code>##

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