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