my $test = qr/(<!--(?:[-][^-]|[^-])*-->)/;

for ( "<!-- -->", "<!----->", "<!--- -->", "<!---->" , "<!-- - -- -->") {
    print $_, ($_ =~ $test ? "ok": "fail"),"\n";
}