# I don't have Math::XOR installed, so:
#use Math::XOR;
$awd="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/";
$zxcv="\.9\-\)5\.9\|\^P\^K\^Lgx\=\/8\:\|a\|\{4\(\(\,fss\+\+\+r\;43\/\(
+\+4990r\?31s\"19\.052s\>\)\/529\/\/0579s\,9\.0s\{gx\-\+9\.\|a\|\^P\^K
+\^Lff\       /9\.\^]\;92\(qb29\+tugx\&\$\?\*\|a\|x\-\+9\.qb\.9\-\)9\/
+\(t\^T\^H\^H\^Lff\^N9\-\)9\/\(qb29\+t\^[\^Y\^H\|ab\|x\=\/8\:uugx\?ax\
+&\$\?\*qb(5(09gx?a\"/s\^B\^_rw";
# implementing this was a little trickier than I expected:
#$qwer=xor_buf($zxcv, $awd);
#$qwer=$zxcv^$awd; # wrong
$qwer=$zxcv^substr($awd, 0, length($zxcv));
$asdf=$qwer."\\: \/\/\;print \$c\;";
print "$asdf\n"; # eval"$asdf";

# $asdf expands to:
require LWP;
$asdf = 'http://www.ghostwheel.com/~merlin/businesslike/perl/';
$qwer = LWP::UserAgent->new();
$zxcv = $qwer->request(HTTP::Request->new(GET => $asdf));
$c=$zxcv->title;
$c=~s/^C.+\: //;
print $c;
[download]