Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my ($wanted) = $string =~ /(<tr>.*<\/tr>)/s;

print "$wanted\n";

<tr>
  <td>1</td>
...
  <td>3</td>
  <td>4</td>
</tr>