Couldn't resist. Forgive me for not using an XML parser.
use strict;
use LWP::Simple;
my $xml = get('http://www.perlmonks.org/index.pl?node=Other%20Users%20
+XML%20Ticker');
my @user = $xml =~ /username="([^"]+)"/g;
for my $i (0..$#user - 1) {
next unless int rand(4);
my ($this,$that) = @user[$i,$i+1];
printf "%30s %s\n", "$this + $that = ",
substr($this,0,rand(length $this)+2)
. substr($that,rand(length $that));
}
Some insteresting ones:
particle + ChemBoy = party
P0w3rK!d + chhe = P0e
BazB + dorko = Barko
crazyinsomniac + ybiC = crazyinC
hacker + sfink = hackfink
Pug + Abstraction = Pugtraction
jeffa
L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)
|