use strict;
use warnings;

my $tr="<tr>" . ("<td>(.*?)</td>"x8) . "</tr>";

while (<DATA>) {
        my @x = m/\G$tr/cgo or next;
        print join("|", @x), "\n";
}

__DATA__

<tr><td>I</td><td>am</td><td>Santa</td><td>Clause</td><td>I</td><td>am</td><td>Santa</td><td>Clause</td></tr>

Blah Blah This Will Not Match

<tr><td>I</td><td>am</td><td>Easter</td><td>Bunny</td><td>I</td><td>am</td><td>Easter</td><td>Bunny</td></tr>

<tr><td>Neither</td><td>Will</td><td>This</td></tr>