#!/usr/bin/perl -w

my $html = qq|
<!-- HTML comment#1
Some comment
-->
Some text
<!-- HTML comment#2
Some comment
-->
|;

my $comment='<!--.*?-->';
$html=~ s/$comment//sg;
print "=$html=\n";