#!/usr/bin/perl -w

use strict;
use LWP::Simple;
my $url = 'http://perlmonks.org/index.pl?';

my @usernames;
my $xml = get("${url}node_id=15851");
my @ret = split(/\n/, $xml);

@ret = grep(/\A\<user/, @ret);
foreach (@ret){
/username="([\w\d\ \$\.\%\@\-]*)"/;
push(@usernames, $1);
}
foreach (@usernames){
s/\s/_/g;
print $_;
get("${url}op=message&message=/msg\%20$_\%20Here's+some+coffee.+Enjoy.");
}