#!/usr/bin/perl

use warnings;
use strict;
use LWP::Simple;
use HTML::TreeBuilder;

my $page = get ('http://pvpgnservers.ath.cx/') or die;

my $tree = HTML::TreeBuilder->new;
$tree->parse($page);

my @trs = $tree->find_by_tag_name('tr');

my @stuff;
foreach my $row (@trs) {
  if ($row->as_text =~ /^217\.172\.178\.113/) {
    @stuff = map { ref $_ ? $_->as_text : $_ } $row->content_list;
    last;
  }
}

print "@stuff\n";