if ($html =~ m#<noframes>(.+?)</noframes>#is)
{
    @urls = grep { $_ !~ m#microsoft\.com|netscape\.com# } $& =~ m#<a href="([^"]+)"#gi;
}

##</code><code>##

if ($html =~ m#<noframes>(.+?)</noframes>#is)
{       
    $noframes = $1;
}
else
{       
    die "Couldn't find noframes tags";
}

while ($noframes =~ m#<a[^>]+>#gis)
{       
    my $link = $&;
    my ($url) = $link =~ m#href\s*=\s*"([^"]+)"#i;
        
    if ($url and $url !~ m#microsoft\.com|netscape\.com#i)
    {       
        push (@urls, $url);
    }
}