#!/usr/bin/perl
use warnings;
use strict;

use LWP::Simple;
use HTML::TreeBuilder;

my $html = get("http://pvpgnservers.ath.cx") or die "Getting html: $!";
my $tree = HTML::TreeBuilder->new_from_content($html) 
  or die "Building html tree: $!";

$tree = $tree->look_down("_tag"=>"a",
                         "href"=>"http://www.pure-dream.com")
             ->look_up("_tag","tr");
$tree->objectify_text();

print join ' ', map {$_->attr("text")} $tree->look_down("_tag","~text");