https://www.opennet.dev/openforum/vsluhforumID3/16438.html use HTML::TokeParser;<br>my $p = HTML::TokeParser-&gt;new("index.html");<br>if ($p-&gt;get_tag("title")){<br> my $title = $p-&gt;get_trimmed_text; # Содержимое &lt;title&gt;<br>}<br>while (my $token = $p-&gt;get_tag("a")) { # перибираем все &lt;a href&gt;<br> my $url = $token-&gt;[1]{href} &#124;&#124; "";<br> my $text = $p-&gt;get_trimmed_text("/a"); # Текст между &lt;a ...&gt; и &lt;/a&gt;<br>}<br><br>URL: <br>Обсуждается: http://www.opennet.ru/tips/info/456.shtml<br> https://www.opennet.dev/openforum/vsluhforumID3/16438.html#1 Thu, 15 Jun 2006 12:23:40 GMT Предложенный вариант у меня не сработал, зато сработал вот этот:<br><br>use HTML::TokeParser;<br>$p = HTML::TokeParser-&gt;new("temp.htm");<br><br> while ($token = $p-&gt;get_tag("a")) {<br> $url = $token-&gt;[1]{href} &#124;&#124; "-";<br> $text = $p-&gt;get_trimmed_text("/a");<br> print "$url\t$text\n";<br> }