title: Delete the content between HTML tags including the tags themselves in Perl
body: <p>There are about 100 files and I need to go through each of them and delete all the data which is between <code>&lt;style&gt;</code> and <code>&lt;/style&gt;</code> + delete these tags too. </p>
  
  <p>For example</p>
  
  <pre class="lang-html prettyprint-override"><code>&lt;html&gt;
  &lt;head&gt; &lt;title&gt; Example &lt;/title&gt; &lt;/head&gt;
  &lt;style&gt;
  p{color: red;
  background-color: #FFFF;
  }
  div {......
  ...
  }
  &lt;/style&gt;
  &lt;body&gt;
  &lt;p&gt; hi I'm a paragraph. &lt;/p&gt;
  &lt;/body&gt;
  &lt;/html&gt;
  </code></pre>
  
  <p>should become</p>
  
  <pre class="lang-html prettyprint-override"><code>&lt;html&gt;
  &lt;head&gt; &lt;title&gt; Example &lt;/title&gt; &lt;/head&gt;
  &lt;body&gt;
  &lt;p&gt; hi I'm a paragraph. &lt;/p&gt;
  &lt;/body&gt;
  &lt;/html&gt;
  </code></pre>
  
  <p>Also, in some files the style pattern is like </p>
  
  <pre class="lang-html prettyprint-override"><code>&lt;style type="text/css"&gt; blah &lt;/style&gt;
  </code></pre>
  
  <p>or </p>
  
  <pre class="lang-html prettyprint-override"><code>&lt;link rel="stylesheet" type="text/css" href="$url_path/gridsorting.css"&gt;
  </code></pre>
  
  <p>I need to remove all 3 patterns. How do I do this in Perl?</p>