stuff i don't want
<!---CURCON-->
stuff i do want
<!---END CURCON-->
more stuff i don't want

##</code><code>##

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

$start = '<!---CURCON-->';
$end = '<!---END CURCON-->';
$current =~ s/$start(.*)$end/$1/s;