use strict;
use warnings;

$_ = join '', <DATA>;
s/<!--.*?-->//gs;
print;

__DATA__
<!-- comment -->text
<!-- multi-line
comment -->text2
<!-- nested <!-- comment --> -->text3

##</code><code>##

text
text2
 -->text3