Hi I would like to know on how to arrange parsed HTML file or align them so that they are in order

I have this "samplehtml.txt" and the contents as follows:

 <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]

Then my parsing code is this wherein it will only output the "FAIL" one

 use HTML::TokeParser;

open($a, "samplehtml.txt") or die("cannot open infile:  $!");

$p = HTML::TokeParser->new($a);     
while (my $token = $p->get_tag("div")) {
    $text = $p->get_text("/div");
    foreach ($text){
        @body = grep /FAIL/, $text;
        print  @body, "\n";}
    }
[download]

and the output in cmd will display the FAIL one with it's contents

     Bryan
     FAIL


          Remarks:

  Bad Grade!





     Val
     FAIL


          Remarks:

  Bad Grade!
[download]

What I want to achieve is to align them for better viewing.. Hope you could help me achieve this

The result that I want is something like this:

     Bryan
     FAIL


     Remarks:

     Bad Grade!





     Val
     FAIL


     Remarks:

     Bad Grade!
[download]

Thank you monks!