@}[0..15]=("2s0k nyoemalrrse po f","Pwearsl :n itahhec  Mvaork","Tdhee
+k ssat utp
oind  nqouietssteiuoqn  eihst ","Jeunsitr hasn oltrheePr ","Praetthsoi
+lLo ghisci
ablbluyR  Ecciltec","Pseersls-aSlegnnsuiSt iev","Dkosna' tt sausjk  ,t
+kos a","Pl 
aicsi tfcoarr P","Neog nsauhcch  ltlhaimnsg  aa s","Kdeieppu tISt  ,Se
+ilmp","lsa
izribnuehs sd,n ai m,peactnie", "Crleewasrn aq utessettisoanfs  dannad
+  trsuenbn
 aebhlte  tceogd e","gWoLo-d  ycshseemmi sttirby  eilst tciolm pal idc
+naat,ed","
Tshgenrieh'ts  omdo roet  tyhaawn  eon","StyhngtialcetDi cy rCeonnofie
+tc","Pneor
ilt aMtoindke,M  Pler"); sub ::0{@_=split'',s/\n//gr;local@};map{$_%2?
+push@},$_[
$_]:unshift@},$_[$_]}reverse 0..$#_;@}}Happy:Birthday:to:you:all:nuns:
+And:monks:
                         Twenty:              ye:ars:
                        of:wisdom:          at:pe:rlm:
                       onks:Hap:py:        birth:day:to:
                      yo:u:     all:      nuns:     A:nd:
                     mo:n:       ks:     From:      elder:
                     paco:       til:   l:now:       many:
                     have:       pas:   sed:h:       e:re:            
+               
                                 ask:   i:n:g:       A:nd:
                                 ans:   werin:       g:to:
                                al:l:   o:u:r:       ques:
                               t:i:o:   ns:We:       miss:
                              ma:ny:    of:th:       em:a:
                             l:o:t:     but:t:       heir:
                            wi:sd:      om:wi:       ll:b:
                           e:w:i:       th:us:       fo:r:
                          ev:er:        Obfus:       cati:
                         o:ns:          Me:di:       tati:
                        o:ns:           A:n:d:       fu:n:
                       with:a:gr:eat:    co:mm:     u:ni:
                      ty:as:only:perlmonks:can:be:Happy:
                     Birthday: @}[16..25]=("gcoi taehreeahd .a. .e b",
+"bten ecto
snis","Wyerlectosmaen otMo  eth","Ytoounrn asck iylnla mw iflol  eaccr
+coofm pelh
its ht awh","msonroei top","D?oe ryao us eklnboawi rwahve rreu oy","Xr
+Pe bimsu n
j uas t","Whec udmo n.'.t. ebriethe  sneeiwb","Tghniinlkp uaobCo uets 
+oLo","P?rs
oib lteim sk?n i hIts  uyooyu rt adhawt a","Tghniinlkp uaobCo uets oLo
+"); print 
$/,(" "x20),%20->($_),$/ for@}[0]; print+(" " x 20),( join" - ",(map{ 
+join " ",(
split/\s/,scalar gmtime$_)[1,2,4]}(join'',(split'',join'',map{ord($_)}
+split'',$}
[0])[27,5,0,27,1,9,11,1,1]),(join'',(split'',join'',map{ord($_)}split'
+',$}[0])[2
,0,9,9,1,0,27,11,1,1]))),$/;print+(" "x20),%20->($_),$/ for@}[1+int ra
+nd(@}-1)];
[download]

L*