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

##</code><code>##

$new = $start . $current . $end;