#!/usr/bin/perl

use strict;
use warnings;
use HTML::TokeParser::Simple;

my $html = do {
  local $/;
  <DATA>;
};

my $p = HTML::TokeParser::Simple->new(\$html);
my ($table, $start);

while (my $t = $p->get_token){
  $start++ if $t->is_start_tag('tr');
  next unless $start;
  last if $t->is_start_tag('br');
  $table .= $t->as_is;
}

print "*$table*\n";

__DATA__
<title>stuff</title>
<br>Header</br>
<tr>
  <td>1</td>
  <td>2</td>
</tr>
<tr>
  <td>3</td>
  <td>4</td>
</tr>
<br>Trailing Info

##</code><code>##

---------- Capture Output ----------
> "C:\Perl\bin\perl.exe" _new.pl
*<tr>
  <td>1</td>
  <td>2</td>
</tr>
<tr>
  <td>3</td>
  <td>4</td>
</tr>
*
> Terminated with exit code 0.