in reply to UNO DOS, HTML

My attempt:

$html =~ s/(<!--%(.*?)%-->)/($2=~m|DOS|)? 'GONE' : $1/esg;

[download]

In Section Seekers of Perl Wisdom