print "Content-type:test/html\n\n"; print "\n"; print "\n"; while () { if (/^(.*?)$tool_number(.*)$/{ ($continue) =1; } if (/^(.*?)$end_tool(.*)$/ { ($continue) = 0; } if ($continue ==1){ print "some stuff\n"; } }