The key to paradise

[gmax]

#/usr/bin/perl
    %p=("\040"=>"\137\057");
    $p{$p{"\040"}} = "\040";
    print@{[map{$o=$p{"\040"
    };@{[              map{(
    ($o=$              p{$o}
    )x$_)              }map{
    ord($_)-(ord("\40")*3)-1
    }split//]},"\n"}split/n/
    ,"uaqbnfdgcebcccbnebebc"
    ."ecc"
    ."gbn"
    ."dbe"
    ."bcb"
    ."ibibncdgdcbib"
    ."nbbnabnaauaub"
    ."ndd"
    ."ccg"
    ."cedebcbncbebe"
    ."bcbebcbebccnb"
    ."beb"
    ."ebc"
    ."bebcbebcbcbna"
    ."bebebecebebcb"
    ."ebna"]};# amen

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

[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

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

[ellem]

You can't hear it, but I am clapping very loud right now.
--
[e-mail]
There's more than one way to do it, just don't use my way.