#!/usr/bin/perl -w

use strict;
use lib '/home/httpd/lib';
use CGI qw/:standard :cgi-lib/;
use LWP::Simple;

my $text = get 'http://www.perlmonks.net/index.pl?node_id=110166';

my %names = (George_Sherston => 110166);

while ($text =~ s#<a HREF="/index\.pl\?node_id=(\d+)">.+?</a><BR> by <a HREF="/index\.pl\?node_id=(\d+)">(.+?)</a> on \w{3} \d{1,2}, \d{4} at# #) {
	unless (defined $names{$3}) {
		$names{$3} = $1;
	}
}