my $line = '<!-- Gone > Not gone -->';

$line =~s/<![^>]*>/<!>/;
print $line;
##</code><code>##

<!> Not gone -->