Just another Perl hacker,


$_ = q q

       Jungla urbană si tonalitatea
       amplifică naivitatea omului terestru, hrănind eficient răutatea...
       Preoții explică răscumpărațiilor luciferului
       hârtia acoperită cu koranul enunțat răului...

q;for(split /\s/){ print chr ord, q q q } print chr length time


$_ = [
        74, 116, 113, 113,
        28,  92, 104, 104,
       108,  95,  91, 103,
        20,  67,  87,  99,
        92,  15,  86,  78,
        79,  86,  79,  91,
        20,  19,  00,  73,
     ];

{vec(${print${$j},$/;$j},$i++
,8)=$$_[$i]+$i;$$_[$i]&&redo}


print pack 'C26',qw(-438 -395 -397
-396 -480 -415 -402 -401 -396 -408
-411 -398 -480 -432 -411 -398 -404
-480 -408 -415 -413 -405 -411 -398
-468 -502 -438 -447 -432 -440 -479)


        ($\,$})=($/,'@');my@y=split//,($@
       =$}|'/',$:=$@,++$@,$@++,$~=(++$@,,
      ++$@),$.=$",$_=$/|$}.(++$@,++$@).$~
     .++$~.$..($;=$}|'!').($^='.'|$}).(qw
    ]/]|$}).$~.($@=$}|'(').($"='%'|$}).(+
   ++$:,++$:,+++$:).$..($:^'"').$".$:.(qq
  },}|$}).$..$@.$;.($}.$}|'#+').$".$:.','
 );sub f{print@_}sub i{my($l,$j)=0;my($x,
 $y,$z,$c,$h,$v,$d,$s,$p,$o)=(@{$_[0]},qw
 )+),'-',qw\|\,'/',sub{$j=$l+$_[0]>@y?do{
 $l=0;pop()}:pop();my@x=@y[$l..$j+$l-1];$
 l=$j+$l;@x},0,0);f$.x($z+1),$c,$h x$x,$c
 ;for(1..$z){f$.x($z-$_+1),$d,$s->($x),$d
 ,$s->($_-1-$p||0),$_>$y?!$p?do{$p=1;$o=$
 z-$y;$c}:$p++?$d:$c:$v;}f$c,$h x$x,$c,$z
 <$y?do{$s->($z),$v}:$p?do{$s->($z-$o),$d
 }:do{$s->($z),$c};for(1..$y){f$v,$s->($
 x),$v,$z-1>=$y?$_>=$z?($s->($x),$c):($
 s->($z-$_-$o),$d):$z==$y?do{$s->($y-$
 _),$d}:$y-$_>$z?do{$s->($z),$v}:$y-$
 _==$z?do{$s->($y-$_),$c}:do{$s->($y
 -$_),$d}}f$c,$h x$x,$c}i$_,for[24,
 24,24],[1,24,0],[0b11000,0b100,1]


_=~('(?{'.('[[).\|`][[{[.@/(^.[{;\,[@:?+^)('
^'+)@@(^*((/[:@/[@;\{+^.@{([\@;["').'"})');;


$_=q qrea ncJertsa ,thelhPkour q,my $i=length;
while($i){s/(.{$i})(.)/$2$1/g;--$i}print+$_.$/


$PI=atan2('inf',0)*2;$\="al uPtnt rsneoorJm hek
";for(-$PI..$PI**$PI){for(reverse-$PI..$PI**$PI
){$\=~s/(.{$_})(.)/$2$1/gmxs}}print+''; #-JAPM-


read(DATA,$s,2**6.6);$s=~s>\s>>;$i=-4;while(~0){
push(@s,substr($s,$i+=4,4)||last)}for my$x(map((
eval"~$_"),@s)){$_=$x;printf'%c',join'',reverse+
chop,chop,substr($x,length($x)-2)<2**5||0&&chop}
__DATA__
592121781180117958631098618521846179219151946181
106313151194218111871263619112985896118821949181


print getc *DATA while defined getc *DATA;;;__END__
tJ%uEsGtJ AainUovtDhFeYr3 @PYefrXl< Thxa1cCk<e&rH,Y


print"@{sub hacker;[grep{sub Just;$::{$_}eq-1}keys%::
];sub Perl}[!!_+(++${sub another;_}),$?,//,$#$],$/";;


eval {                                       hacker
                                        Perl
                                another
                           Just
$,=$"};
eval {                     Just
                                another
                                        Perl
                                             hacker
};
package                         another
;sub                       Just
{print qw;                              Perl
                                             hacker
;}
package                                      hacker
;sub                                    Perl
{print qw;                 Just
                                another
;,''}


                   read*DATA,$_,11**+3;y #{}
                 {}{};s>[\s*]+>>g;sub M{(sort{
              $a<=>$b}@_)[-1]}$i=length;while($i)
           {s/(.{$i})(.)/$2$1/gs;--$i}eval;sub d{$n=
         $_[0];$n=~s/=+$//;$n=~y{A-Za-z0-9+/}/ -_/;$_=
        unpack'u',chr(length($n)*.75+32).$n}for(q\just \
      .q)another),q)perl hacker)){$h->{atan2 1,-inf}=ord;
     for(split//){$_=$$h{$_}?d$$h{$_}:$"x5;$w=M(map{length
    }split$\=$/);s/^(.*?)\s*$/sprintf"%-${w}s",$1/egm;push@
   f,{l=>[split$/],w=>$w}}for$x(0..4){for$i(0..@f-1){@{$f[$i
  ]{l}}?push@{$x[$x]},pop@{$f[$i]{l}}:push@{$x[$x]},$"x$f[$i]
 {w}}}$s.="@{pop@x}$/"while@x;$k=$g='H';for(split$/,$s){$s=$g;
$$s=$_;++$g}$==140;print$w="\e[H","\e[J";{print$w;print$"x$=,($
$_)?chop$$_:''for$k..$g;select$,,$,,$,,.01;--$=&&redo}}__END__$
yg IL fo wy C' vI yX Cy g' XA      gl yy vX AF vi 8X ,' yL 1g w
i,y,fCyCg9AyfA8,AAAfICiw'fXKB'v8XfFAiFggaC,KL'B,IfAyCvyLAv8Iovv
g'wXI,AIy8I=ABe'9,C,,X=I8vIy,'lC8FBLXgIg8i8KI89LAw8vXXvl9K88=yC
XF'='w'ICwIIv'i'v9'BACCFvCgICFLg8fKCLifAIKo8IIILfvKICyI8yfCI'wI
FgBB=8i'8vvgg88o$gFX9vCy8yX'9CgX88fgX'yg8AFgLyoCyCoL8'XtI,yILgo
I1Cg88,'CvffA'gKX89yAAo,CIfoXXw8C1vKC',L8BLIF8v8C8=IXgvAFAgvgFC
fCig        IA,'BIgLI'XKXf=,ICfAIfCII8X8IFgIlyv888K        A8Cf
XLC8           CLgyCvgLwIoABALv1IyvII'p'81XLo8XF           K989
g'v8              ''ly'f'CC8IgggrX8ygjL8F'Fg=              1gw'
yA8'X               vACyL'uKfCA8BKvXX1{ClgL               Iv'yX
IA8Kf                y,IofCCFC'8gI',C,B=oF                KgoBf
v,fBw8                 KyvLvIyvIggF1pgIg                 CA8cXg
 Igg'8                  IC'CyX8wsF'IC,p                  LL8Cy
 ALCfKf                  8IKy'CC8okg,I                  I=X'FA
  gfBIng                  y8IA'FIIpC'                  C'gIL1
   Avf'B                   'yX8gg,88                   8CI',
   wyg8,F                  yBg8CLyAL                  FKovFB
    X'Lgi9F                 X=I8vf'                 FCfLIw,
     CXwFAyC                f'h18i'                88C8CIX
      89pIFLvX               vKL'8               fAvAggCI
       8XKwI=gyA             IhwK'             I}AvyIv8g
        =wvv,A8yII           *****           **********
         ************       *******       ************
          *******************************************
           *****************************************
            ***************************************
             *************************************
               *********************************
                *******************************
                 *****************************
                   *************************
                     *********************
                       *****************
                         *************
                           *********

join eval tell rand reverse ord chr eval split xor
uc prototype eval lcfirst join chmod kill eval ref
split sprintf reverse times xor not eval and srand
tell sqrt formline eval ord lcfirst ucfirst length
 glob gmtime exp defined caller or binmode log ord
abs lc sqrt study alarm split time or formline cos
ne rewinddir kill chdir reset prototype split sqrt
ord int localtime abs oct pack pop eq scalar print
telldir open unpack return and unlink write chroot
hex bless utime split chown split close rmdir join
exp fileno getc sleep redo glob mkdir stat ne pack
reverse getpwnam next lstat gethostent and getpgrp
 eq log ord time xor chr undef and eval caller and
printf srand lstat chown chdir syscall open select
eq -w closedir sleep chr split and quotemeta reset
require ne closedir sleep chr undef or pack unpack
length splice shift umask readpipe pos xor defined
 join system and die or do exit if defined require
hex defined undef or sprintf localtime cmp time or
abs time and undef and open exp getc fileno system
caller eof rewinddir readpipe splice shift defined
kill pop wantarray and readlink eof readpipe split
eval warn join study abs localtime oct log time or
reverse xor open 0; print chr ord while readline 0
,;print chr abs length time for abs length getppid


BEGIN{$^W=1,$SIG{__WARN__}=sub{pop=~s/:+([^"]+)/die
"$1,$\/"=~tr\_\ \r/error}}$Just_another_Perl_hacker


my $japh='Just another '.($/='Python');chomp($_=$japh);
$^X=~m)([^/]+?\)[.\dex]*$);print("$_\u$1$\"hacker,\n");


for($?..$=+$=){$_=chr;/[a-z]/io||next;$$_ = $_, $$_ = $_}
print "$J$u$s$t $a$n$o$t$h$e$r $P$e$r$l $h$a$c$k$e$r,$/";


eval join uc split times.   abs not ord tell hex exp rand
   prototype eval reverse lc   hex abs chmod kill eof ref
;open(_,$0);;while(<_>){print((((/\s(.)|\x66(\s)$/gc))))}


!_&print q qJq or
!__&print q quq or
!___&print q qsq or
!____&print q qtq or
!_____&print q q q or
!______&print q qaq or
!_______&print q qnq or
!________&print q qoq or
!_________&print q qtq or
!__________&print q qhq or
!___________&print q qeq or
!____________&print q qrq or
!____________&print q q q or
!____________&print q qPq or
!___________&print q qeq or
!__________&print q qrq or
!_________&print q qlq or
!________&print q q q or
!_______&print q qhq or
!______&print q qaq or
!_____&print q qcq or
!____&print q qkq or
!___&print q qeq or
!__&print q qrq or
!_&print q q,q,$/


print chr for unpack q((a2)*), substr log(18747683), 3, 8;


for([qw[LP UE 9 5]],[qw[be K2 6 2 Q6 QX 5 2]],[qw[tn AW 9 5]
],[qw[JK pr 6 2 FP SF 3 1]],0){while(@_=splice@$_,0,4){print
substr+crypt($_[0],$_[1]),-$_[2],-$_[-1]}print$_?$":$/}#JAPH


print chr ord for join=>utime=>seek=>tell=>$"=>alarm=>next=>
our=>tied=>hex=>each=>recv=>$"=>pipe=>exit=>redo=>lock=>$"=>
hex=>accept=>connect=>keys=>eof=>rewinddir=>chr length time;


$,='@',$@=$,|'/',$:=$@,++$@,$@++,$~=(++$@,++$@),$\=("$,$,$,$,"^#
'%#(/'),$_=($/|$,).(++$@,++$@).$~.++$~.$".($;=$,|'!').($^='.'|$,
).('/'|$,).$~.($@=$,|'(').($.='%'|$,).(++$:,++$:,++$:).$".($:^+#
'"').$..$:.(','|$,).$".$@.$;.($,.$,|'#+').$..$:.',',`$\ '$_'>&2`


sub _{$_[0]!~/\s/&&print+(chr(pop))or(print+pop)}$_=$;;_$_=(//+//+//)
**(//+//)**(//+//)-((//+//)**(//+//+//))+//;_$_+=(//+//+//+//+//+//)*
(//+//+//+//+//+//+//)+//;_$_-=//+//;_$_+=//;_$";_$_-=(//+//+//+//)*(
//+//+//+//+//)-//;_$_+=((//+//+//)*(//+//))*(//+//)+//;_$_+=//;_$_+=
//+//+//+//+//;_$_-=(//+//+//)*(//+//+//+//);_$_-=//+//+//;_$_+=(//+/
?/+//)*(//+//+//+//)+//;_$";($_/=(//+/$/));_$_+=((//+//)**(//+//+//))
*(//+//+//)-//;_$_+=(//+//+//+//)*(//+//+//+//+//)+//;_$_+=((//+//)*(
//+//+//))*(//+//)+//;_$_-=(//+//)*(//+//+//);_$";_$_-=(//+//)**(//+/
?/);_$_-=(//+//)*(//+//)+(//+//+//);_$_+=//+//;_$_+=(//+//)**(//+//+/
?/);_$_-=(//+//)*(//+//+//);_$_+=((//+//)*(//+//+//))*(//+//)+//;$_/=
//+//+//;_$_+=(/$/+//)*(//+//+//);_((/^/+//+//+//)*(//+/-*$/)+//+//);


Just another Perl hacker

local+$,=$";package another;sub Just{print(substr((caller(0))[3],3**2),@_)}
package hacker;sub Perl{Just another((split/:./,(caller(0))[3])[1,0]),exit}


my($j,$a,%p,@h);sub r{$_.=ref$_[0]}sub i{$j=pop;return+eval'++$j,'x pop}sub
z{my$z;eval"\$z.=\$$_"for(@_);$z}open$j,0;@h=([\%p,\v0,$j,\@h,\{},\$a]);for
$a(0..@{$h[0]}){r$h[0][$a]}@h=$j=~m=(\W)\S+(\W)=;splice(@h,1,0,'.');{$"=$@;
$j="@h"x29}m=$j=;print+join+' ',do{$a=i(2,z(1))}.i(2,z(3)).z(3).i(1,z(3)),z
(2,10,14,7,1,22,21),i(1,z(14)).z(22,29,27),z(1,2,25).++$a.z(22,21).q.,..$/;


print'Vioh<}rshtyn<Lynp<t}'^$;x(ord($/)*(++$-*$-++)),'iaox,'^$/x($-*$-),$/;


$,='@',$@=$,|'/',$:=$@,++$@,$@++,$~=(++$@,++$@),$.=$",$_=$/|$,.(++$@,++$@).$~
.++$~.$..($;=$,|'!').($^='.'|$,).('/'|$,).$~.($@=$,|'(').($"='%'|$,).(++$:,++
$:,++$:).$..($:^'"').$".$:.(','|$,).$..$@.$;.($,.$,|'#+').$".$:.','.$/,print;


print+substr($_,-1)~~6?chr$_-2:substr$!=$_,10,1for+unpack"(a3)*",'12900510502'.
'1111114001003008106011010110023040091002110127131102022071061044097068034046';


print'  'x$],q,_,,$/,q|  \|  /\\  \|_\| \|_\||,$/,q/|_| \/--\\ |   | |/,$/.$/;


print reverse map /([^^])/,$/,qw,read eof keys close alarm hex,,$",qw sleep ref
exp pos,$",qw srand each hex telldir open next abs,$",qw `truncate sin uc join`


$\=$/;foreach($-..$=+$=){$_=chr,m$[\x61-\x75\x2C]$i||next,$$_ = $_ and $$$_=$$_}
print join $",$J.$u.$s.$t,$a.$n.$o.$t.$h.$e.$r,$P.$e.$r.$l,$h.$a.$c.$k.$e.$r.$,;


@|=keys(%!);sub _{@_=90;$_[@_]=$_[$#_] and $_[$#_]=$$_[/^$/]?$_[$#_]+$$_[/^/]:$_
[$#_]-$$_[/$/]for([0,20],[0,36],[1,73],[0,64],[0,6],[1,87],[0,108],[1,91],[0,84]
,[1,19],[1,8],[0,7],[1,14],[0,15],[1,8],[1,22],[0,29],[0,20],[1,14],[0,1],[1,70]
,[0,64],[1,8],[0,42],[1,122]);return @_}print chr eval qq *Errno::$|[$_]* for(_)


sub f{my%D;@D{@_}=();for(@_){if(-d){next if${_}eq'.';my@g;opendir(D,${_})||next;
while(defined(my$d=readdir(D))){unless(${d}eq'.'or${d}eq'..'){push@g,"${_}/$d"}}
closedir(D);push@f,grep({-f}@g);f(grep((!exists($D{$_})),grep({-d}@g)))}elsif(-f
){push@f,$_}}return@f}my$q=qr/["']\w[^\W\d]{3}\h\w{5}([[:alpha:]])\S\b\N\D\1\w+?
\s\p{PosixAlpha}\B.[\x63-\x72]{4,},?(?:\\n)?["']/six;do{-T||next;open(_,'<',$_);
sysread _,$_,-s;if(/$q/o){$_=eval$&;chomp;local$\=$/;print;exit}}foreach(f@INC);


@_=split//,{};for(@_){for($]/$]..$]-($]/$]+$]/$])){$|[@|]=++$_[$_]}}{$#_=+-+$$}
for($],$]*($]+$]-($]/$]+$]/$]))-($]/$]+$]/$]),$]*($]+$]/$])+($]/$]+$]/$]),$]/$]
,$]-$],$]*($]-($]/$]+$]/$]))+($]/$]+$]/$]),$]*($]-$]/$]),$]/$],$]*($]-$]/$])-((
$]/$])+$]/$]),$]*($]/$]+$]/$])-$]/$],$]*($]+$]/$])-$]/$],$]*($]+$]-($]/$]+$]/$]
))+($]/$]+$]/$]),$]+$]-$]/$],$]*($]+$]/$])-$]/$],$]*($]+$]/$]),$]*($]-$]/$])-((
$]/$]+$]/$])),$]-$],$]-($]/$]+$]/$]),$]+$]-($]/$]+$]/$]),$]+$]-$]/$],$]*($]+$]/
$])-$]/$]){$_[@_]=$_?lc$|[$_]:chr$=+$=-$]-$]-$]-$]-($]/$]+$]/$])}$.=$]-$],_(uc(
$_[$.])),$.++;until($.==int$]-$]/$]){_($_[$.]),++$.}_($");while($.+$]/$]<int$]+
$]+$]/$]+$]/$]){_($_[$.]),++$.}_($"),_(uc$_[$.]);for($]+$]+($]/$]+$]/$]+$]/$])-
$]/$]..$]+$]+$]-$]/$]){_($_[$_])}_($"),$~=$]*($]-($]/$]+$]/$])),&{__};sub _{$_[
$]-$]]&&print$_[$]-$]]}sub __{_($_[$~]),++$~,$~<$]*$]?&__:&_(q.,..chr$]+$]),,_}


eval 'require GD::Simple';$@&&die;my $i=GD::Simple->new($)*$]+$],$();$i->moveTo
($]+$],$)-($]*$]+$]+$]));$i->font($]+$]);%_=(string,'`][[{[.@/(^.[{;\,[@:?+^)'^
'*((/[:@/[@;\{+^.@{([\@;[',fontsize,$]*$]+$]-1);while(($~,$@)=each%_){$i->$~($@
)}open _,'>\-';print _$i->png;close _,`xdg-open \Q\\-\E`,sleep($]),unlink('\-')


my $magic_number = 7+7;print chr join('',split(//,$=))+$magic_number;open(_,$0);
while(<_>){next unless / (\w).less/;do{ print $1 } and last}$_=$^;$_=~ s/^(..).+
/\L$1$"/x&& print;for(split m??,q X\XX){push(@_,ord $_)}$_=ord join('',@_);print
chr $_+$_-$magic_number-$_/$$;$_=$!;print/^.(.)....(.)....(.)/;$_=$1 if /(.)....
.....$/x;$_=(++$_,++$_) && print;print $& =~ m(.....(.)),$& =~ /..(.)/;print $";
$^X=~/([^\/.]+)$/ && do print ucfirst $1;$_=chr(hex(int($]))*$]+1+$]+1);print;%_
=($_, qw`h`);while(my($hash,$value)=each(%_)){$_[@_]=$value}print($_[$]/$]]),,$_
=unpack('C',$^);print chr $_+$magic_number;$_=sin($_);$_=~s/^..(..).(.).+/chr($1
+$2)/eg && print;undef @_ if scalar @_;for $,(%_){push(@_, $_=(++$,,++$,,++$,))}
$_=map(/(.)/,@_);print $_[$#_];sub _{return q !error!}print substr(_,0,2),',',$/


print q q q x length time and print chr length qq q exec getc getgrent glob goto
getgrnam getsockname getsockopt getgrgid gmtime grep getprotoent q and print chr
length time and print q q q and print q q q and print chr length q q caller chop
chdir chmod chomp chown chr chroot close closedir continue connect cos crypt die
dbmclose dbmopen defined dump q and print q q  q and print chr length q q import
binmode bless each no formline package q and do s ss q q readpipe qx length time
sex xor s t readpipe tr t and print chr length and print q q  q and s y y x yggg
and s sissg and s trt qq t and print chr length and print chr length qq q splice
setpwent setsockopt shift shmctl study socketpair sort split sprintf srand utime
write q and eval print chr length and print q q q and print chr length and print
chr length q q scalar seekdir sethostent select semctl semget semop send setpgrp
setgrent opendir sub listen q and print chr length and print chr length time and
print chr length and s spssg and s sassg and s s rss and printf chr length and s
s s q q x q x length time sex and s s ss and do print chr length xor print q q q
and s s ssg and s sessg and s exee and print chr length and s sxxssx and do eval
print chr length xor print chr length and s sxsxxxsg and s sxxxxxssx and do eval
print chr length xor print q q q and s sxsq q x q x length time se and s sx sxxx
sx and print chr length and print qq q   q and print chr length and print qq q q
and print chr length and s yy do eval print chr length time foreach qw qr x q ye


print chr length while <DATA>

__DATA__
..._.._._._.._____.____._.__._._._____.___..._..._.._....____._..._...._.
...._.__..__._.._.._.__.._...._._.__._._.__....._._____..__.__.._____.._._..___.___._.._._..._.._....._____.._..._..
___...___..__.._........_...___..._...___._...._.__._.__...__.__....__.............._.______...__..._...____.___._
..._....______._......_._..._____...._._..____._..___.__._._......._._..__.._..___._...._._...__..___._____..._._..
_____.__..._...._....._...._._.
.._....__..._..._.....___..._._..._.._..____.______._._____._..__..__._..__._____.....__.__._...
____.__.__.__..._.__....___...._...._.__.__.__....__._.__.__._.____.._._.__.__..._._.._____._...__._.___..__.
.__...__._._.._....___..__.__.._._.____.._....___.._....._.____.._.._.....__...________..._...._.._____._.._._
_......_._.____._..____..___._....._...._.____.._....__._._..__.__..._____.___._...._.....___.._.._..__.._......__.
._...___.__._.______._......_._..___._...._.__.._...__.._______.._....__......_.___._____.__._._._..._.
._.__.__._...__.._......_.___.._._......._._......_._..._____.__.__...._..._.....____..._.._......__
._.__....._._..__.__..___._._..___.___.__.____._._.__.._.__.__.___._.__._..__._.__.._.__.__._.______._.__..._.__.
_.._..__..._..____.__.._.____._
_.._._..._...______..__._.___._.._.__.__...._.__._.._.___._____.__._._..._...._
._.____.._..___........._..._____._._.._______..___.__..._.__..___.__.___.__.___....._._._..._.___._
____._._.__..._._._._..__._.___.____._._..._...__.____._._.___.._..__......_.___..._.._.__.__._._._..____....._..
_.__.____._...._._.._.._.._.._.__.__._._.__..._.______..._....___._._._.__..__...______...__.._.._._..__.__
__..._.__.___.__._..__.._______
___.._._.___...._..__.._._.__..______.__.._.__.__._____._......_.._.._.....____._._...._.____.___._._..
......__._._.._..___..._.__..._.__.__._.....______._.__.__.__.._._...___._...._.__..._..._..__._
.__.....___._.__....._.._________...._.._._.__...__..___.___..___.__..__.__...____..________.__.._
_._.__..______...._.__._._.____......__.._...________._....____..._._....__.__.__.____..__.__...._..._.._.
_._...___.._.___._..____._.__.._._..__..___._..___....______._____.........___._..._______._.___._._
_.._._._.__.__.____._..._.._...__....._._______.._..._...____..._..___._.._._._..._..__..._..__.___.__._.___.._._
._.__._.._._________._.__..__.__._.__._._._
._..___._