my $line = '<td scope="row"><a href="/Archives/edgar/data/1050122/000092735601000365/0000927356-01-00¡0365-0009.txt">0009.txt</a></td>';
$line =~ s/.*a href="(.*)".*/$1/;
print $line;