Sorry, it should be :

use HTML::TokeParser;
use LWP::Simple;
my $stuff = get('http://some_url.com);
my $file = HTML::TokeParser->new("$stuff");
while ( my $token = $file->get_tag("a")) {
my $url = $token->[1]{href} || "-";
my $text = $file->get_trimmed_text("/a");
print  "<a href=$url>$text</a><br>";
}
[download]

And why can't I edit my original post as I usually can ??
oh well, thanks in advance!