($current) = $everything =~ m/<!---CURCON-->(.*)<!---END CURCON-->/s;