че вы все одну точку зрения копипастите везде...
а как же
#!/usr/bin/perl
use IO::Socket;
$serv='www.xakep.ru';
$socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$serv", PeerPort => "80") || die("Not connect");
print $socket "GET $path HTTP/1.1\n";
print $socket "Host: $serv\n";
print $socket "Accept: */*\n";
print $socket "Connection: close\n\n";
while($s=<$socket>)
{
chomp($s);
if($s=~/\<td>\<font face = \"Arial\" size = \"2\"\>(.*)\<\/font\>/)
{
$text=$1;
if($text=~/\<strong\>(.*)\<\/strong\>/){$razd_id=prov_razd($1);}
if($text=~/\<a href=\"(.*)\">(.*)\t\<\/a\>/){push(@stat,"$razd_id\|$1\|$2\n");}
}
}
так чисто часть из своей парсерки выдернул для примера, но думаю смысл ясен