Changing a single character (the '/' three lines up from PERL) to '"' (double-quote) makes it look much better on light-background terminals. Changing two characters makes it look the same regardless of the terminal's background:
9c9
< ?6>0;1-# :2#-%j$6-#l/#:gns)%h<%
---
> ?6>0;1-# :5#-%j$6-#l!#:gns)%h<%
Yielding:
#!/usr/bin/perl
$_='
lx)L
%j-%h-%k-%
s-%y-%x(:gns%x)X
,04//05(zgns%y)1//6
8(zqshou#]dZ#-%j\'04
?6>0;1-# :5#-%j$6-#l!#:gns)%h<%
j<%s<1:%k<%s+%s,%h+%h,3*%y.34-%h
<3+%s+%h*%x.01-%k+REKCAHX%k*%h+%h=
00\'JUST\'ANOTHER%jPERL**=000:%s
<%k(zqs houHACKER##:|||qshou#
]dZ1l#:';s/\s{1,}//gm;
s/[\x41-\x58]//gm;
s/(.)/chr(ord($1)
^0x1)/ge;
eval
;qaa
Or, if your terminal's using UTF-8, Happy Mandelbrot:
#!/usr/bin/perl
$_='
dw`m
!#cholned!]y
z42|]yz45|]yz55|]yz
5g|]yz44|]yz45|-&;tug9&
#:lx)L%j-%h-%k-%s-%y-%x(:g
ns%x)X, 04//05(zgns%y)1//68(zqshou#
]dZ#-%j\'04?6 >0;1-#:2#- %j$6-#l]yz372`|#:
gns)%h<%j<%s<1:%k<%s+%s,%h+%h,3*%y.34-%h<3+%s+%h*
%x.01-%k+REKCAHX%k*%hJUST+%h=00\'ANOTHER\'
%jPERL* *=000:%s<%k(zqshouHACKER##:
|||qshou#]dZ1l#:';s<\s+>
<>gme;y/\101-\130//d;
s/(.)/chr(ord($1
)^0x1)/ge;
eval
;qaa
-
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.