Select Code to Download

s{<!-- \s ( . (?!-- \s* >) )* \s -- \s* >}{}gmsx

<!-- testing 
test-->

#!perl

...

    say $html;
}

<!-- testing
test-->

<!-- this is a comment -->
<!-- and so is this one,
    which occupies more than one line -->

s{<!-- \s ( . (?!-- \s* >) )*  \s* -- \s* >}{}gmsx