JAPHs, A++s, poetry, etc
--

$_='qmg8h45z89bapidju394y^1#2A';
tr/a-z0-9~#\^A/regexps Produce Jibbley code, and thork
people's brains/,print;

-- 

seek DATA,-48,1;eval while <DATA>;
exit;
do $japh while not sleep, or die;
print "Just another Perl hacker,\n";
__DATA__

-- 

@_=(36,59,-34,-22,74,-4,-6,-47,48,-52,1,69,-66,1,41,-1,15,
-7,-5,6,11,-66,6,-5,69,-27,-45,-14,15,15,-26,20,-49,106,
-2,-67,50,-52,77,-74,-3,12,69,-91,57,2,-29,-18,67,-13,2,-2,
19,-8,3,-83,48,34,-3,-11,17,-18,2,-69,42,31,-7,0,10,-7,20,-89,
67,12,-11,1,-57,-12,65,13,-10,-68,84,-12,7,3,-7,-97,102,-11,
10,1,-4,-7,-62,76,-83,66,16,-17,8,5,5,-68,-3,68,2,-9,5,6,-57)
;for (@_) {$x+=$_;$f.=chr($x);}eval $f;

--

; eval
(print "Just another Perl/Lisp hacker,")

--

$_=q;
"n\,rekcah lreP rehtona tsuJ" tnirp;
;chr$$,[]+//;**,s//$_=reverse;eval/e;

--

$_=q]chr$=-$^L*-1+$[+5]
;s/.*/('$' . eval($_) . "++")/e;eval

--

# Yes, it compiles...


obfuscated perl code
a maze of twisted regex
my $god, it's full of *s...

--

$_=()=<DATA>+@+;s;;$A+=$_;e;

--

CHECK{exit;}
print "Just another Perl hacker,\n";

--

print/42;       # /,"Just another Perl hacker,\n"

--

$
_=sub{print@_};$,=$";&{$_}
(("Just","another","Perl","hacker,\n"));

--

{$U;sub f{$U+=shift;return chr$U};};
eval join"",map(f($_),(36,29,-22,0,16));

--
$;=()=%_=($==>$$);eval
'$'.chr($=+$;*$^F+1).'+'x$;