Select Code to Download

my $str = '<p>something something</p>
<h2>blah </a> blah blah</h2>
<p>something something</p>';

<p>something something<p>
<h1>blah <a> blah blah<h1>
<p>something something<p>