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