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