use strict;
use warnings;
use Data::Dump qw/pp dd/;


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


my @table = $lsdata =~ m/(<tr.*?<\/tr>)/g;

pp @table;

__DATA__
<tr>bla1</tr><tr>bla2</tr>
<tr>bla3</tr>

##</code><code>##

use strict;
use warnings;
use Data::Dump qw/pp dd/;


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


my @table = $lsdata =~ m/(<tr.*?<\/tr>)/sg;

pp @table;

__DATA__
<tr>bla1</tr><tr>bla2</tr>
<tr>bla3</tr>
  <tr>
    bla4
  </tr>