comment on

@}[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]

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

In reply to Twenty years of perlmonks!! Happy birthday to you all!! by Discipulus

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Clear questions and runnable code get the best and fastest answer
	PerlMonks