my $stuff = do { local $/; <DATA> };
$stuff =~ s/<!--.*?--\s*>//gs;
print "$stuff\n";

__DATA__
asdfasdkf <!--
 asdfaskdf
-->
Hello <!-- World -->