$p = HTML::TokeParser->new(shift||"$file");

  while (my $token = $p->get_tag("a")) {
         my $url = $token->[1]{href} || "-";
         my $text = $p->get_trimmed_text("/a");
         push @array, $url; 
         }