Select Code to Download

<TD class="foo"> # you don't allow for attributes
<td>             # you assumed upper-case
<TD              # it's annoying, but legal, to have a newline there
>

    $content =~ s/^(?!\s*<TD>).*$//mg;