Select Code to Download

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

if ($html =~ m#<noframes>(.+?)</noframes>#is)
{       
...
        push (@urls, $url);
    }
}