title: How can I strip HTML in a string using Perl?
body: <p>Is there anyway easier than this to strip HTML from a string using Perl?</p>
  
  <pre><code>$Error_Msg =~ s|&lt;b&gt;||ig;
  $Error_Msg =~ s|&lt;/b&gt;||ig;
  $Error_Msg =~ s|&lt;h1&gt;||ig;
  $Error_Msg =~ s|&lt;/h1&gt;||ig;
  $Error_Msg =~ s|&lt;br&gt;||ig;
  </code></pre>
  
  <p>I would appreicate both a slimmed down regular expression, e.g. something like this:</p>
  
  <pre><code>$Error_Msg =~ s|&lt;/?[b|h1|br]&gt;||ig;
  </code></pre>
  
  <p>Is there an existing Perl function that strips any/all HTML from a string, even though I only need bolds, h1 headers and br stripped?</p>