use HTML::HTML5::Parser;
use HTML::HTML5::ToText;

print HTML::HTML5::ToText
    -> new
    -> process( HTML::HTML5::Parser->load_html(IO => \*DATA) );

__DATA__
 <hr><div >
     <h1>Dave</h1>
     <h2>PASS</h2>
     <table border=0>
         
         <tr><td><b>Remarks:</b></td><td></td></tr>
                 <tr><td>Good Grade!</td></tr>

     </table>
 </div>
 <hr><div  class="fail">
     <h1>Bryan</h1>
     <h2>FAIL</h2>
     <table border=0>

         <tr><td><b>Remarks:</b></td><td></td></tr>

 <tr><td>Bad Grade!</td><td>

     </table>
 </div>
 <hr><div >
     <h1>Dan</h1>
     <h2>PASS</h2>
     <table border=0>
         
         <tr><td><b>Remarks:</b></td><td></td></tr>
                 <tr><td>Good Grade!</td></tr>

     </table>
 </div>
 <hr><div  class="fail">
     <h1>Val</h1>
     <h2>FAIL</h2>
     <table border=0>

         <tr><td><b>Remarks:</b></td><td></td></tr>

 <tr><td>Bad Grade!</td><td>

     </table>
 </div>
[download]