--- Users.pm-old    Tue Sep 24 17:45:18 2002
+++ Users.pm    Tue Sep 24 17:37:28 2002
@@ -14,6 +14,7 @@
 
 use strict;
 use vars qw(@ISA);
+use XML::Simple;
 use PerlMonks;
 
 @ISA=qw(PerlMonks);
@@ -63,7 +64,13 @@
   my $self=shift;
   if ( (time() - $self->{cache_users_ts}) > USERS_REFRESH) {
     if (my $c=$self->getpage(USERS_URL)) {
-      my %users=($c=~/user\s+username="([^\"]+)"\s+user_id="(\d+)"/g);
+
+       # problematic
+       # my %users=($c=~/user\s+username="([^\"]+)"\s+user_id="(\d+)"/g);
+
+       my $users = XMLin($c, forcearray => 1)->{user};
+       my %users = map { $_->{username} => $_->{user_id} } $users ? @$users : ();
+
       $self->{cache_users}=\%users;
       $self->{cache_users_ts}=time();
     }