Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine


by ahunter (Monk)
on Apr 14, 2000 at 00:12 UTC ( #7531=user: print w/replies, xml ) Need Help??

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

Log In?

What's my password?
Create A New User
[jdporter]: I for one think it's kind of ridiculous that people can't ask - here - other people for help just because it involves monetary compensation.
[jdporter]: I think the test for whether to push it to should be strict: (a) you're looking for employment, or (b) you're looking to hire an employee or contractor.

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (4)
As of 2017-03-23 01:07 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (278 votes). Check out past polls.