in reply to Regular expression question

Quick'n'dirty, ey? Not my problem if you get in trouble, ok?

Data file: 

$ cat svg.html
<html>
this
<svg>Lorem Ipsum<foo>bar</foo>
asd</svg>IS
SPARTA
<svg some=property>:{P</svg>
</html>

[download]

$ perl -0 -pi.bak -e 's{<svg[^>]*>.*?</svg>}{}sgi' svg.html ; cat svg.
+html
<html>
this
IS
SPARTA

</html>

[download]

In Section Seekers of Perl Wisdom