use strict; use LWP::Simple; my $xml = get('http://www.perlmonks.org/index.pl?node=Other%20Users%20XML%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)); }