Japhy New Year

Try running this first without arguments (or with an argument of '0'). Then try it with a numeric argument of '1' or '2'. (Update: The values '2005' and '2006' also work in place of '1' and '2').

Happy New Year to all at Perlmonks!

#!/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
[download]

@ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"

Comment on Japhy New Year Download Code

Replies are listed 'Best First'.
Re: Japhy New Year by McDarren (Abbot) on Jan 01, 2006 at 09:26 UTC
very, very nice :) I checked with my wife (a native chinese), and she tells me that the characters are "old-style" chinese, usually referred to as Traditional Chinese (as opposed to Simplified, which is more commonly used). Although I think I saw you mention something in the CB about them being Japanese. I think Japanese and Traditional Chinese characters are very similar.	[reply]
Re: Japhy New Year by japhy (Canon) on Jan 02, 2006 at 05:31 UTC
I am japhy, and I approve of this message. Jeff `japhy` Pinyan, P.L., P.M., P.O.D, X.S.: Perl, regex, and `perl` hacker How can we ever be the sold short or the cheated, we who for every service have long ago been overpaid? ~~ Meister Eckhart	[reply]
Re: Japhy New Year by liverpole (Monsignor) on Jan 01, 2006 at 23:48 UTC
It's not exactly a "spoiler" in the usual sense, but for anyone interested, here is the program I used to generate the obfuscation. @ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"	[reply]
Re: Japhy New Year by cLive ;-) (Prior) on Jan 01, 2006 at 23:08 UTC
Errr, on my fedora box with Perl 5.8.5, I just get everything up to the p; line printed. Am I missing something? cLive ;-) edit: yes I am - I didn't read the instructions. D'oh.	[reply]
Re^2: Japhy New Year by jdalbec (Deacon) on Jan 01, 2006 at 23:27 UTC
That's normal if you don't give a numeric argument. It's supposed to look like balloons. Also try giving a numeric argument of "1" or "2".	[reply]


XP is just a number
	PerlMonks