http://qs1969.pair.com?node_id=7531
ahunter's user image
User since: Apr 14, 2000 at 00:12 UTC (24 years ago)
Last here: Jun 05, 2001 at 01:21 UTC (23 years ago)
Experience: 562
Level:Monk (7)
Writeups: 42
Location:Coventry, UK
User's localtime: Mar 28, 2024 at 11:38 +01
Scratchpad: View
For this user:Search nodes
Watch for posts by this user

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