Народ подскажите вот есть скрипт

#!/usr/bin/perl

use IO::Socket;
print "Content-type: text/html\n\n";

$sock=IO::Socket::INET->new(PeerAddr => "***.ru",
                            PeerPort => 80,
                            Proto    => "tcp",
                            Type     => SOCK_STREAM) || die "can't connect\n";

print $sock "GET ******* HTTP/1.1\n";
print $sock "Accept: */*\n";
print $sock "Referer: http://www.yandex.ru/\n";
print $sock "Accept-Language: ru\n";
print $sock "Accept-Encoding: gzip, deflate\n";
print $sock "User-Agent: $ENV{HTTP_USER_AGENT}\n";
print $sock "Host: *******.ru\n";
print $sock "Connection: close\n\n";
undef $/;
$html=<$sock>;
print $html;
close($sock);

Все отрабатывает прекрасно но вот как мне внего добавить что бы из результата он выдавал только допустип с 5 по 10 строку или 3 5 8 строки