use HTML::TokeParser;
my $p = HTML::TokeParser->new("index.html");
if ($p->get_tag("title")){
my $title = $p->get_trimmed_text; # Содержимое <title>
}
while (my $token = $p->get_tag("a")) { # перибираем все <a href>
my $url = $token->[1]{href} || "";
my $text = $p->get_trimmed_text("/a"); # Текст между <a ...> и </a>
}
|