obfuscated
liverpole
Try running this first without arguments (or with an argument of '0'). Then try it with a numeric argument of '1' or '2'. (<b>Update</b>: The values '2005' and '2006' also work in place of '1' and '2').
<p>Happy New Year to all at Perlmonks!
<code>
#!/usr/bin/perl -w
$_=q/
```````````````````````````````````````````````````````````````````````````
````````````````````''````''``xp(EM((x<``''````````````````````````````````
```````` ''`.... '````''pMMMMMMMMMME<''````````````````````````````````
````````' '~>pxaaao~````~FMME(xxMMMMMMM{~```''``''''''''~><<<````````````
`````````..=p(pppqqqb{b>'oWWW{>'~(MWWWWWWWW~'''''`'''''~b{F{((EE(x`````````
```````'' cqbbbbpqqqbbbbFWWWo'~bWMMMMMMMWWM(``''``''`;(((({{((((((E<```````
```````''qqqbbo>;=adbbppMMW{`<EMMMMMMMMMWWMMx`''``''xE((pp>>((((((((p;`````
````````xdddx;`;<addppp(###daEMMM######WWMMMG. ..'b())d..'>))(((((((p`````
```````;(dda.=addqqqbbb}WW@@@@W####MM##@WM###|>>!!|F(()a!x{{)((((((((E<````
```````xbqqc~bbppqqqbbb{WWW@@@WM###MMM@@#MM#@c';;=c}{{}}}{{{)((((((((((````
```````(bqqqbbbppqqdppp{W####@WM###MMM@@#MW@@ ```=::x(())){}((((((((((E;```
```````(pdddpppppqqdppp}@MM##@WM###MMW@##MM@@.```.==;<()))()((((((((((Ex```
```````(bqqqbbbppqqqbbqqHWW@@@WM###MWW##WWW@c:~~~::~~~>F}))(((((((((((Ex```
```````pbqqqbbbppqqqbbqq}WW@@@WM###@W##MWWMG=.=`..;;;;;b}))(((((((((((E````
```````<)ddddpppdddddppqq)#M###M######MMWWE=.....;`;;`;~}))((((((((((((````
````````(pppppppbbbbbbbbbb{WWWWW@##MMMMMWF>: ''''~''~~~{)((((((((((((<````
````````~{bbbbbpbbbbbbbbbb{>FWWW@##MMMMEb~;=..````;```;~b)(((((((((((p`````
````````'~(ppbbppppppppbb(<pE(EE###E(px;~~;=..```````=;~q((((((((((Ep``````
````````''`x(bbpppppppp{o;(p;~{E###(;`;;~'': ''''''~ ::}((((((((((x```````
````````''```>b((bb{{bo~'{b'~bFH###G=;;`''......``;;`==qF((((((E(x`````````
````````''```''`;o{F''''{{~~{FFFFEEEp;`;'~`````;`````;<b~<E((xx;```````````
````````''```''``(p(p``~F(x(EEEEEEEEEx;;~'~''''~''~'~~b''xE((``````````````
````````''```''``p(px``>FEEEEEFFEEEEEEx;~';;'~``;;;~~>```(EE(``````````````
````````'''''' . '>''''{HHHFFFFFFEEEEEE(<`;~~~';;;;x;''''`;<```````````````
````````''```''. '>'''oFHFFFFFFFFEEEEEEE{bo>~;<xx;````''''p```````````````
```````````````....(```<EGEEEEEEEEEEEEEFFFFEEpx<`````````''b```````````````
```````````````....a````EGEEEEEEEEEEEFFFFEEE(x<(;`````````'~o``````````````
```````````````.`..=!```pGEEEEEEEEEEFFEEEEEEpp(x```````````'{'`````````````
`````````````'' ``..d;``<)EEEFHGGGGEEGGGGGEp..p;...`````````x``````````````
`````````````''.```.=a`<<.pEFHHFEGGGEEGGGFF`..`p`.``````````p;`````````````
`````````````''.``''.!c>' 'oHHHFFGGGEEGGGb'....x`.``````````p;`````````````
````````''''''' '''' !q ' '':qHHHGGGEEEd: `....;!````````'``<;`````````````
``````````'````.````;a q..``...;(EEpx<`. '' q''''''''''`;<`````````````
``````````''```.`'''x; :a.``...EEEx```` '' >>'''''''''';x`````````````
```````````''``.`''`x`' =a```..!(p;.```' .````. 'b``````````;p`````````````
```````````''`.. '`x;`''..p```.d...```''..````. 'o;`````````;x`````````````
```````````''```''`p``''```p```>'`````''```````''~x`````````x;`````````````
````````'''''''''''o'`''''''b~o'''```''````````'''x``````'``p``````````````
````````'''''''''''o'`'''''''oo'''``''`````````'''E`````'''(```````````````
`````````````''````x``''````'>x;```''```''''''''''F''''''~o'```````````````
`````````````''..``p;`''.```'>`x;``'````''`````'''x`..`;p;`````````````````
````````''''' '>~`' ````'b``x```````''`````''~<..!<<```````````````````
````````''''''' ''`' ````~>```p``````''`````''ox!!.`````````````````````
`````````````''`...``` '````~~```;x`````''`````>ob`...`````'```````````````
````````````'''' ..`` '````~~````<;````''```<x'b~`...````'''``````````````
```````````''''`` `.''``..:|.```;) ''''|:' |''' '''''''''`````````````
``````````'''''``. . '``..`'q..``.<<....`.a=..| '``.``````````````````````
``````````''`''```. .''`...`'c..````p`...``=..p' '``.``````````````````````
`````````''``''```.. '``.... c..````d....``..!;'''``.``````````````````````
````````''```''```. '``...`'o````..x`...``.=a`'''`````````````````````````
```````'`````''``` ```...`'o;``...;`...``.a.`'''`...`````````````````````
`````````````''``' .````...''p.`...``...``a..`'''`...`````````````````````
`````````````''`` ...````.. )```....`....=...'''`...`````````````````````
````````````````````````````''x```````````<````'''`````````````````````````
``````````````````````````````p;``````````;````'''`````````````````````````
/;$;=(shift||0)%3;$,=q/@H}qc|: /.(0,q/#G)da!=./,q/WF{bo>~'/)[$;];$;&&s
/[$,]/@/gm;$;&&s/[^\n@]/ /gm;print
</code>
<div class="pmsig"><div class="pmsig-465654">
<hr />
<font size="1">@ARGV=split//,"/:L";
map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"</font>
</div></div>