#! perl -sw
use strict;

use LWP::Simple;
my $html = get("http://pvpgnservers.ath.cx");

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";
__DATA__
C:\test>202414
217.172.178.113 Pure-Dream Europe 0d 00:40 DreamDiver PvPGN&nbsp;BnetD Mod 1.1.6 Linux 42 9