Re: The key to paradise

[gmax]

Come to think of it, the key to paradise should use strict and -w ;-)

#/usr/bin/perl -w
   use strict;my%p=
 ("\40"=>chr(ord("\40"
)*3-1).chr(ord("\40")+ord("\40")/4+7));$p{$p{"\40"}}="\40";print
@{[map{my$o= $p{"\40"};@{[map{(($o=$p{$o})x$_)}map{ord($_)-(ord(
"\40")*3       )-1}split//]},"\n"}split/n/,"uaqbnfdgcebcccbnebe"
."bcecc"       ."gbndbeb"          ."cbibi"   ."bncdg"  ."dcbib"
."nbbna"       ."bnaaua"           ."ubndd"   ."ccgce"  ."debcb"
."ncbeb"       ."ebcbeb"
 ."cbebc"     ."cnbbeb"
  ."ebcbebcbebcbcbnab"
   ."ebebecebebcbeb"
    ."na"]};# amen

 _  _ _  _  
(_|| | |(_|><
 _|