http://www.perlmonks.org?node_id=49226

# So it's not completely platform independent. Bite me. # Should work on most though (although maybe not BSD). #!/usr/bin/perl ($_='sbe($dq=264;$dq>-1;$dq-=11){sbernpu$wht((N..M)){vs((pelcg ($wht,\'AN\'))rd("AN".(erirefr(fcyvg(//,(fhofge((wbva\'\', (\'V81F6kxRNbk6ouZQ8pBD1NV8dX3gsGKifV81F6kxRNbkx/rIM0Yw\' ,\'eo0VQ4UHqKOc9x2Ibfe.1zJymHQBZ8LHz8yWV81F6kxRNbk6ouZQ\' ,\'8pBD1NV8dX3gsGKif2Ibfe.1zJymV81F6kxRNbk6ouZQ8pBD1N6DY\' ,\'4eeXWTvwLYaNJD4hPRJLn9e0zkE9Zo2YV.X43rnv5ZOegaWBEdlo2\' ,\'Ibfe.1zJymLYaNJD4hPRJL1BVy7vfL1qx/rIM0Yweo02xUvbMsjqo/\') ),$dq,11))))))){$wht=~f/M/ /;cevag$wht;}}}')=~ tr/a-zA-Z/n-za-mN-ZA-M/;eval;print "\n";