Select Code to Download

 <hr><div >
    <h1>Dave</h1>
    <h2>PASS</h2>
...

    </table>
</div>

 use HTML::TokeParser;

open($a, "samplehtml.txt") or die("cannot open infile:  $!");
...
        @body = grep /FAIL/, $text;
        print  @body, "\n";}
    }

     Bryan
     FAIL

...
          Remarks:

  Bad Grade!

     Bryan
     FAIL
...
     Remarks:

     Bad Grade!