I know you don't want to use HTML::foo (tho' you never explain why) but in the interests of having at least one "best practices" answer listed here an HTML::TreeBuilder solution is given below:

#!/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";
[download]

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg