Help for this page
use lib ("/home/myusername/perl-lib");
for (@page) { s/include\("([^"]+)"\)//;print; if(open F $1){while(<F>){print}} }