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

##</code><code>##

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