title: Perl String remove a part of it after a pattern
body: <p>I have a variable my <code>$html</code> and it holds a string value. I want to cut it after the word</p>
  
  <pre><code>&lt;/SELECT&gt;
  </code></pre>
  
  <p>How can I do that with Perl?</p>