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