This looks best if run in a terminal window which is at least 42 lines long. It works under both Linux and Windows.
#!/usr/bin/perl -w
$_='
"""")))))))))5CWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
+WWWWWW
""")))))))))))CWMMMMMMMMMMMWWWWWWWWWWWWWWWWFWWWWWWWWWWWWWWWWWWWWWWWWWW
+WWWWWW
""""))))))))5CWWMMMMMMMMMMMWWWWWWWWFC55C5CFFFFWFWWWWWWWWWWWWWWWWWWWWWW
+WWWWWW
""""))))))555CWWWWWWMMMWWWWWWWWWC5C5))))))55)5CCFEEMWWWWWWWWWWWWWWWWWW
+WWWWWW
""""))))))555FWWWWWWMMMWWMMMWWFCL(()""::::(()))55LLEFWWWWWWWWWWWWWWWWW
+WWWWWW
""""))))))5CCWWWWWWWMMMWWMEMWFC5((("":,:."::())(444LEEFWWWWWWWWWWWWWWW
+WWWWWW
""""))))))5FFWWWWWWWMMMWWEEEFC))((:".,,,.."::))((44LLEFWWWWWWWWWWWWWWW
+WWWWWW
"""")))55)CFFWWWWWWWMMMFFLLECCCCL4("... ,.""))))4LLCCFFWWWWWWWWWWWWWW
+WWWWWW
)""))))555CFWWMMMWWWMEEFCEEEC5))((()))"..,::)))55LEMFFFWWWWWWWWWWWWWWW
+WWWWWW
)"""))))55CFWWWMMMWMELCCCCL((::,,:""":(:"":(())))(((5LEMWWWWWWWWWWWWWW
+WWWWWW
)))))))555CWWWWWWMMEL5CC555((4LLLC))""::,,:())))))((((4CWWWWWWWWWWWWWW
+WWWWWW
))))))5555CWWWWWWWWCC555555CWWWWWWF5""""..")555WWWWWWF5CFFWWWWWWWWWWWW
+WWWWWW
)))))55555CWWWWWWWWCC5555555CCWWWF))"((:."))C5(MMWWWFWF5CCFWWWWWWWWWWW
+WWWWWW
)))))55555CWWWWWWWWFC5)5))))""".."""":(())5555(::)))555CCCFFWWWWWWWWWW
+WWWWWW
)55(4444444WWMMMMMMLL55))):::::""":,:(44((4CF)((::::())5CCFEMMMMWWWWWM
+MMMMWF
54444555444EWMMMMMMELL55((:::::,,.,,(4((:,:)CC:,::::((()5LEMMMMMMMMWWM
+MMMEFF
)((()))""(::"(MMWWWMLL544()"..` ,,."5(44)))555(,,,..":(4CLEMWWWWWMMMWM
+MMWWFF
)((()))))(4(54LMWWWMEL54(()"..` ,,..":::)))))):, `.."((45LMMMMMMMMMMWM
+MMWWWF
5LL4444((((()((4FWWMML55((::,,,,,,.."::,""::"):,,...":((5LMMWWWWWWWWWM
+MMWWWW
))(((44554(()((()5WMME5))(:::,,,."))""((((()))((:"."":(45CWMMMMMMMWWWM
+MMWWWW
))))))))55555)")))))CFC5)))"....")5CFFWWWWWWFFC5"""""")55CWWFWWWWWWWWW
+WWWWWW
)))")"))))CCC5)"))(:(ME44()""".....")555CCCCFC):,,.""))55WW55CWWWWWWWW
+WWWWWW
"""""""""")555))"":::(MM44())""""""""""""""")"":::""))55WWF)5CFWWWWWWW
+WWWWWW
.""..""""""."))")":,,")WMLL55)((((::"...,,:::))((()))5CWWF5)5CFWWWWWWW
+WWWWWW
."..".".."...."")):,:,,,:4EWEEELL4((:,.` ,::")4445CFWWWF55)5CFFCWWWWW
+WWWWWW
................."::,, ,(4CFEEEFFFFL4("":::)5CFMMMWF)"."")))555C5CWWWW
+WWWWWW
..."".............,, `.5FC5FEL44((4LEEFFEEEWWFWMMMW)``.."..""""....5WW
+WWWWWW
".".........```.`. `)FCCCCEEL55)))))55LLL55CCEEEF5```..."....``.```.
+)WWWWW
..........```````` )CCCCCC5LL44444()))(44555CLLEC5```...````````````
+```)WW
......````````.``` )CCCCCCC54(((((()))44()55544455.```.`````````````
+`````.
..,,,..```````````````.)55555555)))))))555))))55)5)))`````````````````
+``
..,,,```````````````````")))))))))))))))((()))((())).`````````````````
+``
..,, ``````` ``)))((:((::)))):(())(::""".` ```` ``
+``
.` ``` ``` `.((::::::::"""::():::"""` `` ``
+``
`` ```` `` ````` ``,((""""":::""::::::"""` `````` ` ````
+`` ,4(
). ```` `` ````` `` ,("""""""""":::::,""`` ` ````
+."5EE)
)F: ```` `` ``` `` ,"""".:::".::,::,:``` ````````` ``."
+)555FC
)FEL(.``` `` ``` ::::,,,.".,::"": ``` `` ."")
+)55LEF
5FELL5)"` ``` `` ````` :,,,."""":,:"". ```` ``,,:""")
+)54LEE
FFFC55)))".````````````````````."."..."..".".````````````````.))""""))
+)55LLF
FFCC55)))))))""..``````````````."."""""."...````````````````)5))))))))
+555CCF
WFFC55))))))))5)).`````````````...."""".....````````````````555)))))55
+5CCCFF
WFFCC55)))))))))5"``````````````"..""""....`````````````````)5555)5555
+55CCFF
WFFCC55)))))5555C"`.````````````".."""""..```````````````.`.CCCCC5555C
+CCCCFF
WFFCC55)))))555C5".`````````````````.""..```````.....````.."CCCCC55CCC
+CCFFFF
WFFCC55))))))55C5..```````````.````````````````````..")"``.)FCCC55555C
+CCCFFW
WFFFCC5555555C5C5".........`....`````````````````````.55CC5FFFFWFFC555
+5CCFFW
WWFFCC555555CCCF5"."""```````````.``````.`````...")5CCCCFCCCCCCFFFFFC5
+5CCFFF
WWFFCC55555CCCFW5".````."""."...".""))C55CCCCCFFFFFCCCCC5555555555CC55
+5CCFFF
WWFFFCCCCCCCCCFW)"")")FFFFFFFC5CCCCFFCCFCCCC555555555))))))))))))5))55
+5CCFFF
WWFFFFCCCCCCCFFW)`.)WWFFFFFCC5C5555))555))))))))))))"""""""""")))))555
+CCFFFW
WWFFCC555CCFFFFWWFFWWFFFFFCC55))))))")))"""""""")"""""""""""))))))))55
+CCFFFW
WWFFCC5CFFWWWWWWWWWWWWFFFFCC555))))))"))"""""))))))"""""")))))))))555C
+CFFFWF
';s#[ \x2c\x3a\x28\x34\x4c\x45\x4d]#@#g;s#[^\n@]# #g;s#(^ +\n)+$##m;pr
+int$_,
-
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.