#!/usr/bin/perl  -w             # The Monastery Gates?          
                 use                  
               strict;                
             $^X="jryan";             
           $/="japh";my$i=            
         0;my@b;while(<DATA>)         
        {s"japh"";tr.z. .;s"(.)       
      (..)"$2$1"x;$b[$i]=$_;$i++}     
   my$z;for($i=0;$i<@b;$i++){my$q="   
  {================================}  
  ";print substr($/,0,1),$b[$i];$/=~  
  s"(.)(...)"$2$1"x  ;if((++(substr(  
  $/,0,1))) gt$^X)    {substr($/,0,1  
  )=~tr.a-z.za-y.      ;print$b[++$i  
  ]}else{my$obfu=      $/;$obfu=~s+(  
  .)(...)+\$obfu=      '$1';\$obfu=~  
  tr*[a-z]*[za-y]      *;\$\/=\$obfu  
  \.'$2';+x;eval(      $obfu)}$z++;;  
  print "\n"," "x($z)}exit; __DATA__  
tusjaphtnojaphrhejaphlerjaphkacjaphzer
[download]

Update: Or as crazyinsomniac put it, "The Circus Tent?" :)