#!/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#.+?
by (.+?) on \w{3} \d{1,2}, \d{4} at# #) {
unless (defined $names{$3}) {
$names{$3} = $1;
}
}