@}[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)];
L*
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.
-
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.