#!/usr/bin/perl -w
use strict;

my $comments = do { local $/; <DATA> };
print "BEFORE:\n$comments";
$comments =~ s/<!--(.|\s)*?-->//g;
print "AFTER:\n$comments";

__DATA__
<!-- comments -->
snippet of code
<!-- comments -->