#!/usr/bin/perl
use strict;
use warnings;

my @lines = <DATA>;
for my $line(@lines) {
	print "| $line |";
	if ($line =~ /(<a href.+<\/a>)/) {  # note, no need to capture the whole of row 9
   		print "$1 \n\n";
	}
	else { 
     	print "Crummy regex\n"
	}
}

__DATA__
<td scope="row">9</td>
             <td scope="row">SUBSIDIARIES OF THE REGISTRANT</td>
             <td scope="row"><a href="/Archives/edgar/data/1050122/000092735601000365/0000927356-01-000365-0009.txt">0009.txt</a></td>
             <td scope="row">EX-21.1</td></>

And here's execution:

<c>C:>wrkrbeejunk.pl
| <td scope="row">9</td>
 |Crummy regex
|              <td scope="row">SUBSIDIARIES OF THE REGISTRANT</td>
 |Crummy regex
|              <td scope="row"><a href="/Archives/edgar/data/1050122/000092735601000365/0000927356-01-000365-0009.txt">0009.txt</a></td>
 |<a href="/Archives/edgar/data/1050122/000092735601000365/0000927356-01-000365-0009.txt">0009.txt</a>

|              <td scope="row">EX-21.1</td> |Crummy regex

C:\>