User since: Apr 14, 2000 at 00:12 UTC Last here: Jun 05, 2001 at 01:21 UTC (12 years ago) Experience: 559 Level: Monk (7) Writeups: 42 Location: Coventry, UK User's localtime: May 24, 2013 at 21:33 GMT-1 Scratchpad: View

This is just a variant on something I posted to obfuscated code, but to find my email address, run this:

use strict;$_=' RZzqDaL ^IYt}WigMQo r|FD}Ms `UVwIIj';my @w=my $z=lengt
+h()>>1;
$_=join'',map { (/\s/)?' ':chr(ord($_)^++$z) } split //; while (/[xX]/
+) {push
@w, scalar(join '', map {$z=1;join '', grep {$z&&((/[A-Z]/&&(($_.='x')
+||1))||
($z=0))}split//}split/\s/);s/\s[A-Z]+/ /g;tr/[A-Z][a-z]/[a-z][A-Z]/;}$
+_=(join
' ',@w[1..$#w]);s/[xX ]//g;$_=lc;tr/[yz]/[.@]/; print; print "\n"; ###
+# Email
[download]