use strict;

my $lsdata;
while (<>) {
   $lsdata .= $_;
}

# Add the /s option to make this work
my @table = $lsdata =~ m/(<tr.*?<\/tr>)/g;

print $#table;