$var =~ s/^.*<tr>//mg;
$var =~ s/<\/tr>.*$//mg;