#! perl -sw
use strict;

use LWP::Simple;
my $html = get("http://pvpgnservers.ath.cx");
#my $html = do{local $/; <>; };

my @stuff = $html =~
m!
<tr>\s+
<td><font\ssize=1><a\shref="bnetd://217.172.178.113/">([^<]+?)</a></font></td>\s+
<td><a\starget="_blank"\shref="http://www.pure-dream.com"><font\ssize=1>([^<]+?)</font></a></td>\s+
<td><font\ssize=1>([^<]+?)</font></td>\s+
<td\salign=right><font\ssize=1>([^<]+?)</font></td>\s+
<td><font\ssize=1><a\shref="mailto:webmaster@pure-dream.com">([^<]+?)</a></font></td>\s+
<td><font\ssize=1>([^<]+)</font></td>\s+
<td\salign=right><font\ssize=1>([^<]+?)</font></td>\s+
<td\salign=right><font\ssize=1>([^<]+?)</font></td>\s+
</tr>\s+
<tr>
!sx;

 print "@stuff\n";