use strict;

my $p=q~

<script>

alert("<!--")

</script>

1{<!-- REMOVE ME PLEASE  -->}

<h1>header</h1>

 

<style type="text/css">

<!--

img{border:1px solid red;content:"-->"}

-->

</style>

<img src="23.gif" ismap />2{<!-- <- :) -->}

<img src="23.gif" />3{<!--545ds-->}

<img alt="<!--" ismap src="img.gif" title='-->' >

4{<!--

comment

-->}

<a title='-->' >aaa</a>

5{<!--se -->}

 

<script >

<!--

alert("<!-- -->")

//-->

</script>

 

<p align=center title=8742>

6{<!-- z332 <a href= 324> -->}

~;

 

# РегВыр находит Либо любой тег кроме "<!DOCTYPE..." и "<?xml...", либо

# пару тегов script или style (открывающий и закрывающий теги)

# В этот рег четыре раза внедрена конструкция (?(условие)да-паттерн|нет-паттерн):

# первый раз для понимания с чем мы имеем дело с комментарием или с обычным тегом,

# второй раз для обработки значений аттрибутов тегов которые не заключены в кавычки.

# третий и четвёртый для того чтобы находить закрывающие пары для тегов <script...> и <style...>

# Парсить атрибуты надо т.к можно напороться на вот такую конструкцию:

# <img alt="<!--" src="img.gif" title='-->' >

# т.е атрибут может содержать символ - ">" на котором запореться, на превый взгляд рабочий, регВыр типа:

# <\w+[^>]*>

$p=~s/(<(\/)?((!--)|(script)|(style)|\w+)(?(4).*?-->|(\s+\w+(?:\s*=\s*(["'])?(?(8)[^\8]+?\8|\S+?(?=[>\s])))?)*?\s*\/?>(?(5).*?<\/script>|(?(6).*?<\/style>))))/$1 if !$4/gise;

print $p;

$p=~s/(<(\/)?((!--)|(script)|(style)|\w+)(?(4).*?-->|(\s+\w+(?:\s*=\s*(["'])?(?(8)[^\8]+?\8|\S+?(?=[>\s])))?)*?\s*\/?>(?(5).*?<\/script>|(?(6).*?<\/style>))))/$1 if !$4/gise;