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

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