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