#!/usr/bin/perl

use warnings;
use strict;

use HTML::TokeParser;

my $filename = "test.html";

my $p = HTML::TokeParser->new($filename);
 
while (my $token = $p->get_tag("a")) {
    my $url = $token->[1]{href} || "-";
    my $text = $p->get_trimmed_text("/a");
    print "$url\t$text\n";
}