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

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