Help for this page

Select Code to Download

Select or download this

  undef $/;
  $_=<>;
  s/(\n\037.*?\n\* Menu.*?\n\037)//;
  $mymenu=$1;

Select or download this

  undef $/;
  $_=<>;
...
    print OUT $myblock;
    close OUT;
  }