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
@ARGV=split//,"/:L";
map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"
-
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.
|
