&get_input; open(F,"$file"); while(){$PAGE.=$_} foreach $eblock (@EDITS){ $$eblock=~s!<=textarea!]*>)(.*)($file"); print F "$PAGE"; foreach $iblock (@INCLUDES){ $$iblock=~s!<=textarea!$INC") || error("$com_text_write5 $INC"); print P "$$iblock"; close(P); $INC=''; } print "Content-type: text/html\n\n"; print qq~ ~; exit; 1;