Xu Xiaodong avatar Xu Xiaodong committed a0ea7e8

initial commit

Comments (0)

Files changed (3)

+#!/usr/bin/perl -w                                      # camel code
+use strict;
+
+                                           $_='ev
+                                       al("seek\040D
+           ATA,0,                  0;");foreach(1..3)
+       {<DATA>;}my               @camel1hump;my$camel;
+  my$Camel  ;while(             <DATA>){$_=sprintf("%-6
+9s",$_);my@dromedary           1=split(//);if(defined($
+_=<DATA>)){@camel1hum        p=split(//);}while(@dromeda
+ ry1){my$camel1hump=0      ;my$CAMEL=3;if(defined($_=shif
+        t(@dromedary1    ))&&/\S/){$camel1hump+=1<<$CAMEL;}
+       $CAMEL--;if(d   efined($_=shift(@dromedary1))&&/\S/){
+      $camel1hump+=1  <<$CAMEL;}$CAMEL--;if(defined($_=shift(
+     @camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if(
+     defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1<<$CAME
+     L;;}$camel.=(split(//,"\040..m`{/J\047\134}L^7FX"))[$camel1h
+      ump];}$camel.="\n";}@camel1hump=split(/\n/,$camel);foreach(@
+      camel1hump){chomp;$Camel=$_;y/LJF7\173\175`\047/\061\062\063\
+      064\065\066\067\070/;y/12345678/JL7F\175\173\047`/;$_=reverse;
+       print"$_\040$Camel\n";}foreach(@camel1hump){chomp;$Camel=$_;y
+        /LJF7\173\175`\047/12345678/;y/12345678/JL7F\175\173\0 47`/;
+         $_=reverse;print"\040$_$Camel\n";}';;s/\s*//g;;eval;   eval
+           ("seek\040DATA,0,0;");undef$/;$_=<DATA>;s/\s*//g;(   );;s
+             ;^.*_;;;map{eval"print\"$_\"";}/.{4}/g; __DATA__   \124
+               \1   50\145\040\165\163\145\040\157\1 46\040\1  41\0
+                    40\143\141  \155\145\1 54\040\1   51\155\  141
+                    \147\145\0  40\151\156 \040\141    \163\16 3\
+                     157\143\   151\141\16  4\151\1     57\156
+                     \040\167  \151\164\1   50\040\      120\1
+                     45\162\   154\040\15    1\163\      040\14
+                     1\040\1   64\162\1      41\144       \145\
+                     155\14    1\162\       153\04        0\157
+                      \146\     040\11     7\047\         122\1
+                      45\15      1\154\1  54\171          \040
+                      \046\         012\101\16            3\16
+                      3\15           7\143\15             1\14
+                      1\16            4\145\163           \054
+                     \040            \111\156\14         3\056
+                    \040\         125\163\145\14         4\040\
+                    167\1        51\164\1  50\0         40\160\
+                  145\162                              \155\151
+                \163\163                                \151\1
+              57\156\056
+%%
+#JoeCamel on http://www.perlmonks.com/
+#note: requires Perl5.6.0 or better
+#!/usr/bin/perl -w
+use strict;
+
+# A tribute to one of the greatest films of all time.
+my(%primate, $monolith, $evolution, $contact);
+
+            $_='primate-> throw
+            ( "Bone" ) ;  goto;
+            $$monolith ;  bless
+            %primate;$evolution
+            =~m/?+*/; #/*+?/m~= 
+            *humanIntellect ++;
+            $Discovery =~ m . [
+            [::]>>=<>=<>=<>=(-)
+            ]. ; require  2001;
+            exists($malfunction
+            )#open $podBayDoors 
+            or die ; HAL-> sing
+            ("Daisy");sleep()*'
+            ;my@universe= qw(15 
+            1 6 4 35 1  12 2 23 
+            2 14 1  8 2 0  5 25 
+            1 39 3 7 2);my $God
+            ;$monolith="******"
+            ;  my  @spaceTime = 
+            split/;/,$_ ; while 
+            (my($space,$time )= 
+            splice (@universe,0
+            ,2) ) { my $journey 
+            = shift @spaceTime;
+            eval " $journey; ";
+            $contact = substr (
+            $@, $space, $time )
+            ; if ( $space != ((
+            " dimension " =~ //
+            ) +1+4+9 ) ) {print 
+            $contact; next; }my   
+            $starChild=$contact
+            ;print uc$starChild
+
+}
+%%
+#!/usr/local/bin/perl
+  
+undef$/;$_=<DATA>;y/ODA\n / /ds;@yoda=map{length}split;print chr
+oct join('',splice(@yoda,0,3))-111 while@yoda;
+__DATA__
+         00O00O000O00O0000      000O         DD000000O0
+        0DO0000000O0000O00     O00000        00O00000O0O
+        0000      0O0         O00  O00       00D     0DO
+         00O0     0O0        00D    000      DO0D00000D
+          0O00    DOD       000000O00000     000  O00O
+ DD0000D000O0     000      0O00O0000D00DO    0OD   D00O000D00O0
+ 00000DO00O0      000     000O        00D0   O0D    O00000O0DO0
+  
+ 0O000   OD0D   O00O0   0000         DDDO000000      O00O000000
+  0O000 O00DDO 00000   0O0D00        00O0O00000O    0O00O000000
+   0O0O00OD00000DDD   00O  0D0       DDD     D0O    00O0D
+    00000O00000000   O00    DO0      D00D00O000      00D00
+     D0O00  O0000   000O000O00DO     000  00O0        0OD00
+      O00    000   0O000D000O00O0    000   0D0O000000O00O00
+       0      0   0O0D        0000   0O0    0O0000000O000O
+
+[editorial note: would the author of this JAPH *please* stand up? ]
+%%
+#Erudil from http://www.perlmonks.com/
+#!/usr/bin/perl -w                                      # camel code
+use strict;
+
+                                           $_='ev
+                                       al("seek\040D
+           ATA,0,                  0;");foreach(1..3)
+       {<DATA>;}my               @camel1hump;my$camel;
+  my$Camel  ;while(             <DATA>){$_=sprintf("%-6
+9s",$_);my@dromedary           1=split(//);if(defined($
+_=<DATA>)){@camel1hum        p=split(//);}while(@dromeda
+ ry1){my$camel1hump=0      ;my$CAMEL=3;if(defined($_=shif
+        t(@dromedary1    ))&&/\S/){$camel1hump+=1<<$CAMEL;}
+       $CAMEL--;if(d   efined($_=shift(@dromedary1))&&/\S/){
+      $camel1hump+=1  <<$CAMEL;}$CAMEL--;if(defined($_=shift(
+     @camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if(
+     defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1<<$CAME
+     L;;}$camel.=(split(//,"\040..m`{/J\047\134}L^7FX"))[$camel1h
+      ump];}$camel.="\n";}@camel1hump=split(/\n/,$camel);foreach(@
+      camel1hump){chomp;$Camel=$_;y/LJF7\173\175`\047/\061\062\063\
+      064\065\066\067\070/;y/12345678/JL7F\175\173\047`/;$_=reverse;
+       print"$_\040$Camel\n";}foreach(@camel1hump){chomp;$Camel=$_;y
+        /LJF7\173\175`\047/12345678/;y/12345678/JL7F\175\173\0 47`/;
+         $_=reverse;print"\040$_$Camel\n";}';;s/\s*//g;;eval;   eval
+           ("seek\040DATA,0,0;");undef$/;$_=<DATA>;s/\s*//g;(   );;s
+             ;^.*_;;;map{eval"print\"$_\"";}/.{4}/g; __DATA__   \124
+               \1   50\145\040\165\163\145\040\157\1 46\040\1  41\0
+                    40\143\141  \155\145\1 54\040\1   51\155\  141
+                    \147\145\0  40\151\156 \040\141    \163\16 3\
+                     157\143\   151\141\16  4\151\1     57\156
+                     \040\167  \151\164\1   50\040\      120\1
+                     45\162\   154\040\15    1\163\      040\14
+                     1\040\1   64\162\1      41\144       \145\
+                     155\14    1\162\       153\04        0\157
+                      \146\     040\11     7\047\         122\1
+                      45\15      1\154\1  54\171          \040
+                      \046\         012\101\16            3\16
+                      3\15           7\143\15             1\14
+                      1\16            4\145\163           \054
+                     \040            \111\156\14         3\056
+                    \040\         125\163\145\14         4\040\
+                    167\1        51\164\1  50\0         40\160\
+                  145\162                              \155\151
+                \163\163                                \151\1
+              57\156\056
+%%
+#MeowChow from http://www.perlmonks.com/ 
+
+$ _=
+ qq
+.CG
+T--A
+A---T
+A----T
+ C----G
+  T----A
+   A---T
+    G--C
+     CG
+     CG
+    C--G
+   G---C
+  G----C
+ C----G
+A----T
+C---G
+G--C
+ AT
+ CG
+A--T
+A---T
+G----C
+ A----T
+  G----C
+   C---G
+    A--T
+     GC
+     CG
+    G--C
+   A---T
+  G----C
+ G----C
+G----C
+A---T
+T--A
+ AT
+ CG
+T--A
+C---G
+A----T
+ A----T
+  G----C
+   A---T
+    A--T
+     CG
+     TA
+    T--A
+   G---C
+  G----C
+ C----G
+A----T
+C---G
+G--C
+ CG
+ TA
+T--A
+C---G
+T----A
+ C----G
+  A----T
+   C---G
+    G--C
+     GC
+     TA
+    G--C
+   C---G
+  G----C
+ G----C
+G----C
+A---T
+T--A
+ CG
+ AT
+G--C
+A---T
+A----T
+ C----G
+  C----G
+   A---T
+    A--T
+     CG
+     CG
+    G--C
+   G---C
+  G----C
+ A----T
+T----A
+C---G
+G--C
+ CG
+ TA
+A--T
+A---T
+G----C
+ A----T
+  A----T
+   C---G
+    A--T
+     GC
+     TA
+    G--C
+   C---G
+  T----A
+ G----C
+G----C
+C---G
+T--A
+ AT
+ CG
+G--C
+G---C
+T----A
+ C----G
+  G----C
+   C---G
+    C--G
+     CG
+     AT
+    T--A
+   C---G
+  G----C
+ G----C
+A----T
+T---A
+G--C
+ CG
+ TA
+G--C
+A---T
+G----C
+ A----T
+  G----C
+  .;@_{A
+    => C
+     =>
+     G=>
+    T=>}
+   =0..3
+  ;s;. *
+ (\w).*
+(\w).*
+\n;$_
+{ $-
+ ++
+ /9
+%2?$
+2:$ 1
+};gex;
+ s;(.)(
+  .)(.)(.
+   );chr
+    64*$
+     1+
+     16
+    *$2+
+   4  *$
+  3   +$
+ 4 ;gex
+; eval
+
+%%
+#Clinton Pierce
+#note: Requires 5.6.0 or better
+
+                    '% * % % * % %<>
+               * % ~ * % % * % * * % *      *
+       * % % * *   % * % *<> * % ~   % % % * %
+     *  * * % * % % % % * % % % % % % * % % * %
+     % * % % ^ * % % % % *[] % % * * % * * % %  %
+      % * %   % % % % % * * % * * @ *   @ % * % %
+    % ^ % * % * % * * % % * %  <> % % % % * % %() %
+  % % * * * % % * % % * * % * * * * % * * % % * * *
+   %   * * * % % * % % *[]<> % % % % * % * * * % % *<>
+ % * *  % % % * * % * * * \ * %\ * * *   %/ \ # % * *
+  % % % *\ * /\ * *// %  %\ <>\ // % %/ % \// % * %
+    * * *\ \|| \ \/ / % %// \ \ *\ /<> %//  %// % %<>
+   * % * %\  \  |   | ||// % || //  \// % // * * * %
+   %{} %  * ----\   \ | /   %||//   /  ---/ / * % % *
+     % *  *\ ____\   \| |    /  /  /   /----/ * %
+            \ ----\     |   /   //    /
+                   \     \ /        /'
+                    =~m/(.*)/s;$_=$1;
+                     s![-\\|_/\s]!!g
+                       ;%e=('%',0,
+                       '^',132918,
+                       '~'=>18054,
+                       '@'=>19630,
+                       '*' =>0b01,
+                       '#'=>13099,
+                       '[]'=>4278,
+                       '<>'=>2307,
+                       '{}'=>9814,
+                       '()',2076);
+                       for $a(keys
+                       %e){$e{$a}=
+                       sprintf"%b"
+                       , $e{$a};}
+                     $y= qq{(}.join(
+                     '|',map "\Q$_\E"
+                   ,keys %e).qq{)};s/$y
+              /$e{$1}/gex;print pack"B*",$_;
+
+%%
+#Kickstart from http://www.perlmonks.com/
+#note: a slight valentine variation :)
+
+      $LOVE=               AMOUR.
+    true.cards.        ecstacy.crush 
+  .hon.promise.de    .votion.partners.
+ tender.truelovers. treasure.affection.
+devotion.care.woo.baby.ardor.romancing.
+enthusiasm.fealty.fondness.turtledoves.
+lovers.sentiment.worship.sweetling.pure
+.attachment.flowers.roses.promise.poem;
+ $LOVE=~ s/AMOUR/adore/g; @a=split(//,
+  $LOVE); $o.= chr (ord($a[1])+6). chr
+   (ord($a[3])+3). $a[16]. $a[5]. chr
+    (32). $a[0]. $a[(26+2)]. $a[27].
+      $a[5].$a[25]. $a[8].$a[3].chr
+        (32).$a[29]. $a[8].$a[3].
+          $a[62].chr(32).$a[62].
+           $a[2].$a[38].$a[4].
+               $a[3].'.';
+                 print
+                  $o; 
+                  
+%%                  
+# chipmunk (aka Ronald J Kimball) <rjk@linguist.dartmouth.edu> 
+#!perl -l
+$_={1..28};$/=[$_,P,a..z,J,$"];print+map{$_&1?$/->{$_}:$/->[$_|1]}
+(27,21,19,20,28,1,14,15,20,8,5,18,28,0,5,18,12,28,8,1,3,11,5,18)
+%%
+#Ronald J Kimball  <rjk@linguist.dartmouth.edu>
+$~='`';$_=$:=$~|'%';$;=$^='/'|$~;$;++;$\=$~|"'";$;++;$:.=++$;;$/=++$;;+$\++;$_.=
+'#'|$~;$,=++$/;$_.="$\$^$\"";++$,;$_.='@'|'*'&~'!';$_.="$,$;$/$\"";$_.+='!.'|$~.
+$~;$_.="$^$/$\$:$\"";$_.='@'|':'&~'*';$_.=$:;$_.=$^&'|';$_.=$".$\;$_.=+"$~$~$~"|
+'!#+';++$.;$.++;`$_$:,>&$.`;
+%%                           
+#Abigail
+perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
+%%
+#Abigail
+perl -wle 'print "Prime" if (0 x shift) !~ m 0^\0?$|^(\0\0+?)\1+$0'
+%%
+#Abigail
+perl -wle 'print "Prime" if ("m" x shift) !~ m m^\m?$|^(\m\m+?)\1+$mm'
+%%
+#Abigail
+perl -wle '$, = " "; print grep {(1 x $_) !~ /^(11+)\1+$/} 2 .. shift'
+%%
+#Abigail
+perl -wle '(1 x $_) !~ /^(11+)\1+$/ && print while ++ $_'
+%%
+#Abigail
+perl -wle '(1 x $_) !~ /^(11+)\1+$/ && print while ++ $_' | perl -pe 'INIT {<>}'
+%%
+#Abigail
+perl -wle 'INIT {$_ ++} (1 x $_) !~ /^(11+)\1+$/ && print while ++ $_'
+%%
+#Abigail
+perl -wle '(1 .1 x $_) !~ /^(11+)\1+$/ && print $_ + 1 while ++ $_'
+%%
+#Abigail
+perl -wle '(1 x $_) !~ /^(11+)\1+$/ && print while ($_ ||= 1) ++'
+%%
+#Abigail
+perl -wle '(2 x $_) !~ /^(2|(22+)\2+)$/ && print while ++ $_'
+%%
+#Abigail
+perl -weprint\<\<EOT\; -eJust -eanother -ePerl -eHacker -eEOT
+%%
+#Abigail
+perl -wle\$_=\<\<EOT\;y/\\n/\ /\;print\; -eJust -eanother -ePerl -eHacker -eEOT
+%%
+#Abigail
+perl -wleprint -eqq-@{[ -eqw+ -eJust -eanother -ePerl -eHacker -e+]}-
+%%
+#Abigail
+perl -wleprint -eqq-@{[ -eqw\\- -eJust -eanother -ePerl -eHacker -e\\-]}-
+%%
+#Abigail
+perl -swleprint -- -_='Just another Perl Hacker'
+%%
+#Abigail
+perl -swleprint -- -_=Just\ another\ Perl\ Hacker
+%%
+#Abigail
+perl5.004 -wMMath::BigInt -e'$^V=Math::BigInt->new(qq]$^F$^W783$[$%9889$^F47]
+.qq]$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W]
+.qq]98$^F76777$=56]);$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V
+%$^U;$^V/=$^U}while$^V!=$^W'
+%%
+#Abigail
+perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
+%%
+#Abigail
+perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle'print +(
+HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (
+LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET",
+"http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content))
+=~ /(.*\))[-\s]+Addition/s) [0]'
+%%
+#Abigail
+perl -we '$_ = q ;4a75737420616e6f74686572205065726c204861636b65720as;;
+          for (s;s;s;s;s;s;s;s;s;s;s;s)
+              {s;(..)s?;qq qprint chr 0x$1 and \161 ssq;excess;}'
+%%
+#Abigail
+perl  -e '$_ = q *4a75737420616e6f74686572205065726c204861636b65720a*;
+          for ($*=******;$**=******;$**=******) {$**=*******s*..*qq}
+          print chr 0x$& and q
+          qq}*excess********}'
+%%
+#Abigail
+perl -we '$_ = q ?4a75737420616e6f74686572205065726c204861636b65720as?;??;
+          for (??;(??)x??;??)
+              {??;s;(..)s?;qq ?print chr 0x$1 and \161 ss?;excess;??}'
+%%
+#Abigail
+perl -e 'for (s??4a75737420616e6f74686572205065726c204861636b65720as?;??;??) 
+             {s?(..)s\??qq \?print chr 0x$1 and q ss\??excess}'
+%%
+#Abigail
+perl -e '$a = q 94a75737420616e6f74686572205065726c204861636b65720a9 and
+         ${qq$\x5F$} = q 97265646f9 and s g..g;
+         qq e\x63\x68\x72\x20\x30\x78$&eggee;
+         {eval if $a =~ s e..eqq qprint chr 0x$& and \x71\x20\x71\x71qeexcess}'
+%%
+#Abigail
+perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
+0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
+=>I=>$==-2449231+gm_julian_day+time);do{until($=<$#r){$_.=$r[$#r];$=-=$#r}for(;
+!$r[--$#r];){}}while$=;$,="\x20";print+$_=>September=>MCMXCIII=>=>=>=>=>=>=>=>'
+%%
+#Abigail
+sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
+"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s};;;
+*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};                # Perl 5.6.0 broke this...
+_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
+%%
+#Abigail
+$"=$,;*{;qq{@{[(A..Z)[qq[0020191411140003]=~m[..]g]]}}}=*_=sub{print/::(.*)/};
+$\=$/;q<Just another Perl Hacker>->();
+%%
+#Abigail
+$"=$,;*{;qq{@{[(A..Z)[qq[0020191411140003]=~m[..]g]]}}}=*_;
+sub   _   {push         @_ => /::(.*)/s and goto &{ shift}}
+sub shift {print shift; @_              and goto &{+shift}}
+Hack ("Just", "Perl ", " ano", "er\n", "ther "); # YYYYMMDD
+%%
+#Abigail
+perl -wle '$, = " "; sub AUTOLOAD {($AUTOLOAD =~ /::(.*)/) [0];}
+           print+Just (), another (), Perl (), Hacker ();'
+%%
+#Abigail
+perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
+             "\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
+             "\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
+%%
+#Abigail
+sub f{sprintf$_[0],$_[1],$_[2]}print f('%c%s',74,f('%c%s',117,f('%c%s',115,f(
+'%c%s',116,f('%c%s',32,f('%c%s',97,f('%c%s',0x6e,f('%c%s',111,f('%c%s',116,f(
+'%c%s',104,f('%c%s',0x65,f('%c%s',114,f('%c%s',32,f('%c%s',80,f('%c%s',101,f(
+'%c%s',114,f('%c%s',0x6c,f('%c%s',32,f('%c%s',0x48,f('%c%s',97,f('%c%s',99,f(
+'%c%s',107,f('%c%s',101,f('%c%s',114,f('%c%s',10,)))))))))))))))))))))))))
+%%
+#Abigail
+sub f{sprintf'%c%s',$_[0],$_[1]}print f(74,f(117,f(115,f(116,f(32,f(97,
+f(110,f(111,f(116,f(104,f(0x65,f(114,f(32,f(80,f(101,f(114,f(0x6c,f(32,
+f(0x48,f(97,f(99,f(107,f(101,f(114,f(10,q ff)))))))))))))))))))))))))
+%%
+#Abigail
+# Perl 5.6.0 broke this.
+%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
+(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
+%%
+#Abigail
+perl -wlpe '}{$_=$.' file  # Count the number of lines.
+%%
+#Abigail
+perl -wlpe '}$_=$.;{' file  # Count the number of lines.
+%%
+#Abigail
+perl -wlpe '}{$_=$.}{' file  # Count the number of lines.
+%%
+#Abigail
+perl -wlpe '}{*_=*.}{' file  # Count the number of lines.
+%%
+#Abigail
+perl -wlne '}for($.){print' file  # Count the number of lines.
+%%
+#Abigail
+perl -wlne '}{print$.' file  # Count the number of lines.
+%%
+#Abigail
+perl -wlne '}print$.;{' file  # Count the number of lines.
+%%
+#Abigail
+perl -Mstrict='}); print "Just another Perl Hacker"; ({' -le1
+%%
+#Abigail
+srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
+//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
+%%
+#Abigail
+package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
+                                      print } sub __PACKAGE__ { &
+                                      print (     __PACKAGE__)} &
+                                                  __PACKAGE__
+                                            (                )
+%%
+#Abigail
+perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+         / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / 
+         % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
+         BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}'
+%%
+#Abigail
+perl -we 'print q{print q{print q{print q{print q{print q{print q{print q{print 
+               qq{Just Another Perl Hacker\n}}}}}}}}}'    |\
+perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w
+%%
+#Abigail
+echo "==== ======= ==== ======"|perl -pes/=/J/|perl -pes/==/us/|perl -pes/=/t/\
+ |perl -pes/=/A/|perl -pes/=/n/|perl -pes/=/o/|perl -pes/==/th/|perl -pes/=/e/\
+ |perl -pes/=/r/|perl -pes/=/P/|perl -pes/=/e/|perl -pes/==/rl/|perl -pes/=/H/\
+ |perl -pes/=/a/|perl -pes/=/c/|perl -pes/=/k/|perl -pes/==/er/|perl -pes/=/./;
+%%
+#Abigail
+sub J::FETCH{Just   }$_.='print+"@{[map';sub J::TIESCALAR{bless\my$J,J}
+sub A::FETCH{Another}$_.='{tie my($x),$';sub A::TIESCALAR{bless\my$A,A}
+sub P::FETCH{Perl   }$_.='_;$x}qw/J A P';sub P::TIESCALAR{bless\my$P,P}
+sub H::FETCH{Hacker }$_.=' H/]}\n"';eval;sub H::TIESCALAR{bless\my$H,H}
+%%
+#Abigail
+package Z;use overload'""'=>sub{$b++?Hacker:Another};
+sub TIESCALAR{bless\my$y=>Z}sub FETCH{$a++?Perl:Just}
+$,=$";my$x=tie+my$y=>Z;print$y,$x,$y,$x,"\n";#Abigail
+%%
+#Abigail
+sub A::TIESCALAR{bless\my$x=>A};package B;@q[0..3]=qw/Hacker Perl
+Another Just/;use overload'""'=>sub{pop @q};sub A::FETCH{bless\my
+$y=>B}; tie my $shoe => qq 'A';print "$shoe $shoe $shoe $shoe\n";
+%%
+#Abigail
+sub A::TIESCALAR{bless\my$x=>'A'};package B;@q=qw/Hacker Perl
+Another Just/;use overload'""',sub{pop @q};sub A::FETCH{bless
+\my $y=>B};tie my$shoe=>'A';print"$shoe $shoe $shoe $shoe\n";
+%%
+#Abigail
+tie $" => A; $, = " "; $\ = "\n"; @a = ("") x 2; print map {"@a"} 1 .. 4;
+sub A::TIESCALAR {bless \my $A => A} #  Yet Another silly JAPH by Abigail
+sub A::FETCH     {@q = qw /Just Another Perl Hacker/ unless @q; shift @q}
+%%
+#Abigail
+sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
+h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
+c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
+print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\n");
+%%
+#Abigail
+perl -wle 'print prototype sub "Just another Perl Hacker" {};'
+%%
+#Abigail
+perl -wle 'sub _ "Just another Perl Hacker"; print prototype \&_'
+%%
+#Abigail
+               split // => '"';
+${"@_"} = "/"; split // => eval join "+" => 1 .. 7;
+*{"@_"} = sub {foreach (sort keys %_)  {print "$_ $_{$_} "}};
+%{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}};
+%%
+#Abigail
+$" = "/"; split // => eval join "+" => 1 .. 7;
+*{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}};
+%_ = (Just => another => Perl => Hacker); &{%_};
+%%
+#Abigail
+$" = "/"; split $, => eval join "+" => 1 .. 7;
+*{"@_"} = sub  {foreach (sort keys %_) {print "$_ $_{$_} "}};
+%{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}};
+%%
+#Abigail
+$_ = "\x3C\x3C\x45\x4F\x54"; s/<<EOT/<<EOT/e; print;
+Just another Perl Hacker
+EOT
+%%
+#Abigail
+$_ = "\x3C\x3C\x45\x4F\x54";
+print if s/<<EOT/<<EOT/e;
+Just another Perl Hacker
+EOT
+%%
+#Abigail
+$_ = "\x3C\x3C\x45\x4F\x54" and s/<<EOT/<<EOT/e and print;
+Just another Perl Hacker
+EOT
+%%
+#Abigail
+$_ = "\x3C\x3C\x45\x4F\x54\n" and s/<<EOT/<<EOT/ee and print;
+"Just another Perl Hacker"
+EOT
+%%
+#Abigail
+perl -Mstrict -we '$_ = "goto F.print chop;\n=rekcaH lreP rehtona tsuJ";F1:eval'
+%%
+#Abigail
+#!/opt/perl/bin/perl   --    # No trailing newline after the last line!    
+BEGIN{$|=$SIG{__WARN__}=sub{$_=$_[0];y-_- -;print/(.)"$/;seek _,-open(_ 
+,"+<$0"),2;truncate _,tell _;close _;exec$0}}//rekcaH_lreP_rehtona_tsuJ
+%%
+#Abigail
+#!/opt/perl/bin/perl   --   # Remove trailing newline!
+BEGIN{$SIG{__WARN__}=sub{$_=pop;y-_- -;print/".*(.)"/;  
+truncate$0,-1+-s$0;exec$0;}}//rekcaH_lreP_rehtona_tsuJ
+%%
+#Abigail
+BEGIN {$^H {q} = sub {pop and pop and print pop}; $^H = 2**4.2**12}
+"Just "; "another "; "Perl "; "Hacker\n";
+%%
+#Abigail
+BEGIN {$^H {q} = sub {$_ [1] =~ y/S-ZA-IK-O/q-tc-fe-m/d; $_ [1]}; $^H = 0x28100}
+print "Just another PYTHON hacker\n";
+%%
+#Abigail
+BEGIN {$^H {join "" => ("a" .. "z") [8, 13, 19, 4, 6, 4, 17]} = sub
+           {["", "Just ", "another ", "Perl ", "Hacker\n"] -> [shift]};
+       $^H = hex join "" => reverse map {int ($_ / 2)} 0 .. 4}
+print 1, 2, 3, 4;
+%%
+#Abigail
+BEGIN {$^H {join "" => ("a" .. "z") [8, 13, 19, 4, 6, 4, 17]} = sub
+           {["", "Just ", "another ", "Perl ", "Hacker"] -> [shift]};
+       $^H = hex join "" => reverse map {int ($_ / 2)} 0 .. 4}
+print 1, 2, 3, 4, "\n";
+%%
+#Abigail
+BEGIN {my $x = "Knuth heals rare project\n";
+       $^H {integer} = sub {my $y = shift; $_ = substr $x => $y & 0x1F, 1;
+       $y > 32 ? uc : lc}; $^H = hex join "" => 2, 1, 1, 0, 0}
+print 52,2,10,23,16,8,1,19,3,6,15,12,5,49,21,14,9,11,36,13,22,32,7,18,24;
+%%
+#Abigail
+print v74.117.115.116.32;
+print v97.110.111.116.104.101.114.32;
+print v80.101.114.108.32;
+print v72.97.99.107.101.114.10;
+%%
+#Abigail
+print 74.117.115.116.32;
+print 97.110.111.116.104.101.114.32;
+print 80.101.114.108.32;
+print 72.97.99.107.101.114.10;
+%%
+#Abigail
+print v74.117.115.116.32, v97.110.111.116.104.101.114.32,
+      v80.101.114.108.32, v72.97.99.107.101.114.10;
+%%
+#Abigail
+print 74.117.115.116.32, 97.110.111.116.104.101.114.32,
+      80.101.114.108.32, 72.97.99.107.101.114.10;
+%%
+#Abigail
+print v74.117.115.116.32.97.110.111.116.104.101.114.
+      v32.80.101.114.108.32.72.97.99.107.101.114.10;
+%%
+#Abigail
+print 74.117.115.116.32.97.110.111.116.104.101.114.
+      32.80.101.114.108.32.72.97.99.107.101.114.10;
+%%
+#Abigail
+map{${+chr}=chr}map{$_=>$_^ord$"}$=+$]..3*$=/2;        
+print "$J$u$s$t $a$n$o$t$h$e$r $P$e$r$l $H$a$c$k$e$r\n";
+%%
+#Abigail
+perl -we'$;=$";$;{Just=>another=>Perl=>Hacker=>}=$/;print%;'
+%%
+#Abigail
+$;                                   # A lone dollar?
+=$";                                 # Pod?
+$;                                   # The return of the lone dollar?
+{Just=>another=>Perl=>Hacker=>}      # Bare block?
+=$/;                                 # More pod?
+print%;                              # No right operand for %?
+%%
+#Abigail
+@;=split//=>"Joel, Preach sartre knuth\n";$;=chr 65;%;=map{$;++=>$_}
+0,22,13,16,5,14,21,1,23,11,2,7,12,6,8,15,3,19,24,14,10,20,18,17,4,25
+;print@;[@;{A..Z}];
+%%
+#Abigail
+$_ = "\112\165\163\1648\141\156\157\164\150\145\1628\120\145"
+   . "\162\1548\110\141\143\153\145\162\0128\177"  and &japh;
+sub japh {print "@_" and return if pop; split /\d/ and &japh}
+%%
+#Abigail
+sub _ {$_ = shift and y/b-yB-Y/a-yB-Y/                xor      !@ _?
+       exit print                                                  :
+            print and push @_ => shift and goto &{(caller (0)) [3]}}
+            split // => "KsvQtbuf fbsodpmu\ni flsI "  xor       & _
+%%
+#Abigail
+:$:=~s:$":Just$&another$&:;$:=~s:
+:Perl$"Hacker$&:;chop$:;print$:#:
+%%
+#Abigail
+ :;$:=~s:
+-:;another Perl Hacker
+ :;chop
+$:;$:=~y
+ :;::d;print+Just.
+$:;
+%%
+#Abigail
+ :;$:=~s:
+-:;another Perl Hacker
+ :;chop
+$:;$:=~y:;::d;print+Just.$:
+%%
+#Abigail
+perl -le 's[$,][join$,,(split$,,($!=85))[(q[0006143730380126152532042307].
+          q[41342211132019313505])=~m[..]g]]e and y[yIbp][HJkP] and print'
+%%
+#Abigail
+perl -wle 'eval {die ["Just another Perl Hacker"]}; print ${$@}[$#{@${@}}]'
+%%
+#Abigail
+perl -we 'eval {die ["Just another Perl Hacker\n"]}; print ${$@}[$#{@${@}}]'
+%%
+#Abigail
+perl -wle 'eval {die ["Just another Perl Hacker"]}; print ${${@}}[$#{@{${@}}}]'
+%%
+#Abigail
+perl -we 'eval {die ["Just another Perl Hacker\n"]}; print ${${@}}[$#{@{${@}}}]'
+%%
+#Abigail
+perl -wle 'eval {die [[qq [Just another Perl Hacker]]]};; print
+           ${${${@}}[$#{@{${@}}}]}[$#{${@{${@}}}[$#{@{${@}}}]}]'
+%%
+#Abigail
+$_ = "\nrekcaH lreP rehtona tsuJ"; my $chop; $chop = sub {print chop; $chop};
+$chop -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
+-> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
+%%
+#Abigail
+perl -we '$| = 1; $_ = "Just another Perl Hacker\n";  print
+          substr  $_ => 0, 1 => "" while $_ && sleep 1 => 1'
+%%
+#Abigail
+($;,$_,$|,$\)=("\@\x7Fy~*kde~box*Zoxf*Bkiaox"," "x25,1,"\r"); 
+{vec($_=>1+$"=>$^F<<$^F)=ord($/^substr$;=>$"=int rand 24=>1);              
+ print&&select$,,$,,$,,$|/($|+tr/ //c);redo if y/ //>$^F**2};
+%%
+#Abigail
+($;,$_,$|,$\)=("\@\x7Fy~*kde~box*Zoxf*Bkiaox","#"x25,1,"\r");
+s/./ /;{vec($_=>1+$"=>8)=ord($/^substr$;=>$"=int rand 24=>1);
+print&&select$,,$,,$,,$|/($|+tr/#//c);redo if y/#//};sleep 1;
+%%
+#Abigail
+$=-=4*++$|;{print$"x--$==>"\@\x7Fy~*kde~box*Zoxf*Bkiaox \r"
+                            ^
+$/x24if!select$,,$,,$,,join+q=.==>$^W=>$|;$=&&redo}sleep$|;
+%%
+#Abigail
+@_=map{[$!++,$_^$/]}split$�,"\@\x7Fy~*kde~box*Zoxf*Bkiaox";$\="\r";
+$|=++$*;do{($#,$=)=(rand@_,rand@_);@_[$#,$=]=@_[$=,$#]}for($*..@_);
+for$:($|..@_-$|){for($|..@_-$:){@_[$_-$|,$_]=@_[$_=>$_-$*]if$_[$_][
+$�]<$_[$_-$*][$�];print+map{$_->[$|]}@_;select$�,$�,$�,0.1}}print$/
+%%
+#Abigail
+@_=map{[$!++=>$_^$/]}split$�=>"\@\x7Fy~*kde~box*Zoxf*Bkiaox";$\="\r";
+$|=++$*;do{($#=>$=)=(rand@_=>rand@_);@_[$#,$=]=@_[$=,$#]}for($*..@_);
+for$:($|..@_-$|){for($|..@_-$:){@_[$_-$|,$_]=@_[$_=>$_-$*]if$_[$_][$�
+]<$_[$_-$*][$�];print+map{$_->[$|]}@_;select$�,$�,$�,"$[.$|"}}print$/
+%%
+#Abigail
+BEGIN {print "Just "   }
+CHECK {print "another "}
+INIT  {print "Perl "   }
+END   {print "Hacker\n"}
+%%
+#Abigail
+perl -wle'print"����ݷ������ݭ���ݻ�����"^"\x80"x24'
+%%
+#Abigail
+   my $qr =  qr/^.+?(;).+?\1|;Just another Perl Hacker;|;.+$/;
+      $qr =~  s/$qr//g;
+print $qr, "\n";
+%%
+#Abigail
+use   lib sub {($\) = split /\./ => pop; print $"};
+eval "use Just" || eval "use another" || eval "use Perl" || eval "use Hacker";
+%%
+#Alex Gough (alex@rcon.org)
+#!/usr/bin/perl
+use Quantum::Entanglement qw(:DEFAULT :complex);
+$language=entangle(1,'python',1/i,'C',i*i,'perl',1/i**2,'Java',i**5,'C#');
+print "Just another $language hacker,\n" if $language eq 'perl';
+%%
+#John Porter <jdporter@min.net>
+eval { 62->lZRopcwjoXyup_yuGpXcxbyu() };
+$@ =~ s/"(.*?)"/"ss"/;
+print((split//,$@)[map{ord($_)-62}split//,$1],",\n");
+%%
+#Casey West
+my $html;$html.=$_ while<DATA>;$html=~s/[^ ]  <([^\/])/
+'  <'.chr(ord($1)-32)/ges;$html=~s/\n//gs;$html=~s/^  /
+/;$html=~s/ {2,3}/SPC/g;$html=~s/ //g;$html=~ s/SPC/ /g
+;$html=~s/<([^\/])/'<'.chr(ord($1)-1)/ge;print join"\n"
+,join('',($html=~m/(?:<([^\/])|( ))/g)),'';# Formatting
+__END__
+ 
+  <kbd>Type some HTML</kbd> into a <var>Variable</var>.
+and you set it's <tt>value</tt>. <u>Amazing!</u>   <br>
+<object code="srccode"><param name="code" value="Perl">
+ <u>You don't have a Perl enabled browser :-( shame</u>
+<img alt="Perl forever!" src="perl.png"></object><form>
+Quote this text:<samp>Perl. Live it, love it, learn it.
+</samp>  <q>Perl. Live it, love it, learn it. </q><font
+color="#FF0000">Perl is the only cure to your headaches
+</font><script language="JavaScript">function push_me()
+{alert('Javascript won\'t help!') }</script><marquee>IE
+won't help! </marquee>  <i>When this just hurts... </i>
+<button name="pushme" onClick="push_me();return true;">
+<dir> <li> Go for Perl! </dir> <font size="+1"><strong>
+ Author: Casey Tweten, 100% Perl Geek </strong> </font>
+%%
+#Casey West
+$_=`perldoc -qjaph`=>s`.+"(.+)".+`$1\n`s=>s`\b([^a])`\u$1`g=>print;
+%%
+#Casey West
+sub q{print};;$_=eval q.q;
+# Just another Perl Hacker
+;;.;s;.+?\b;;s;eval qq;&q;
+%%
+#Casey West
+sub ::(Just{another}Perl{Hacker}){(
+$,=>$\)=(q q q=>q q q)=>prototype\&
+::}@(=split q q\{([^\}]+)\}q=>eval{
+eval qq:&\:\::};{(print(@(=>"\n"))}
+%%
+#Casey West
+map{s[[^\@\$]][]go=>chomp,$_=[split/(\@+\$*)/=>$_]=>map{$_?do{s(
+(\@+)(\$*))(chr((length$1)*10+length$2))ex=>print}:1}@$_}<DATA>,__END__
+sub proto(@@@@@@@$$$$@@@@@@@@@@@$$$$$$$@@@@@@@@@@@$$$$$
+@@@@@@@@@@@$$$$$$@@@$$@@@@@@@@@$$$$$$$@@@@@@@@@@@
+@@@@@@@@@@@$@@@@@@@@@@@$$$$$$@@@@@@@@@@$$$$
+@@@@@@@@@@$@@@@@@@@@@@$$$$@@@$$@@@@@@@@
+@@@@@@@@@@$@@@@@@@@@@@$$$$@@@@@@@@@@$$$$$$$$
+@@@$$@@@@@@@$$@@@@@@@@@$$$$$$$@@@@@@@@@$$$$$$$$$
+@@@@@@@@@@$$$$$$$@@@@@@@@@@$@@@@@@@@@@@$$$$@){&proto}
+%%
+#Casey West
+#!/usr/local/bin/perl -w
+use strict;$|++;$_=q{<}.
+q{leo%mbwf<?BUBE=fmjix}.
+q{!`%-0/]0ujmqt~*udp)s}.
+q{id|qbn-((ojpk>/leo%-}.
+q{qnpid<leo%zn}=>s{(.)}{
+chr((ord $1)-1)}xeg;eval
+scalar reverse;#IP magic
+__END__
+160.141.143.153
+141.147.145.40
+112.165.163.164
+73.163.165.142
+40.141.156.157
+164.150.145.162
+173.50.143.141
+154.154.145.162
+50.60.51.51
+40.133.63.135
+175.12.160.141
+143.153.141.147
+145.40.120.145
+162.154.73.163
+165.142.40.110
+141.143.153.145
+162.40.173.50
+143.141.154.154
+145.162.50.60
+51.51.40.133
+63.135.175.12
+160.141.143.153
+141.147.145.40
+155.141.151.156
+73.160.162.151
+156.164.40.152
+157.151.156.40
+47.40.47.54
+40.163.160.154
+151.164.40.155
+47.72.72.47
+54.12.152.157
+151.156.47.72
+72.47.54.112
+165.163.164.72
+72.141.156.157
+164.150.145.162
+54.120.145.162
+154.72.72.110
+141.143.153.145
+162.56.42.134
+156.42.73.12
+%%
+#Jeff Pinyan <jeffp@crusoe.net>
+M^q@@;BEGIN{close"stderr"}print+H|R&k,G^w|E,Q&x|c,,,,
+M&~i|t,,,q^&q|^^q&l],&^q|jm>|,N|d|A&c,v&q~|~,c^H^C,w&
+M|a,qq<\x11A"\x17\x1b\x09Rh\x0d\x0c\x18\x11x>^<<,,,,,
+carrier lost
+
+,,;!EOF
+%%
+#Joey Mitchell Comeau <aw096@chebucto.ns.ca>
+perl -e '$_=$\=" perl hacker,";$_&="B";$_|=("B"|"H");$_|="Just another";print;'
+%%
+#Lauren Smith <LaurenS@bsquare.com>
+print grep ord $_,map{y/a-zA-Z//d;$x.="+ $_";chr(eval $x)
+}'J74u43-s2tA1-84n33o45th1er5-12-P3e13-82r48l21H13-a6-76
+c40k25er2wx8-y6z13-81'=~m#([^!\n]{3})#g#tr/-0-9//d;print
+%%
+#Robin Houston <robin@kitsite.com>
+
+The notorious French literary group _Oulipo_ came up with
+the following scenario: A prisoner has a very limited supply
+of paper to write on, and so in order to conserve this scarce
+resource he decides to use only those letters which extend
+neither above nor below the line: aceimnorsuvwxz
+
+Ian Monk's _a russian con's economic missive_
+ (http://www.kitsite.com/~robin/ou-x-po/talk/prisoner.html)
+is an example of writing within this constraint.
+
+
+Naturally, I'd like to apply this idea to Perl. Because
+non-alphabetic symbols are so important to us, it was
+obviously necessary to extend the idea a little. I
+analyzed my terminal font, and decided that the characters
+
+  &+-.:<=>acemnorsuvwxz~ 
+
+went neither too far up nor too far down. Naturally the results
+may be a little different for other fonts, but I needed a
+standard. So I started to program in this restricted Perl.
+
+It's a frustrating little language, but rather beautiful.
+
+A JAPH:
+
+s==x= && s==.er & xac.uc coer= && s==m--+m--+m--+m--=e &&
+s==xac.~o= && s=.+=<<x& evam=ee &&
+eva~
+x
+s=c.=c= && s=x=xz&<<o=e &&
+xm
+o
+s=x=x = && s=x=<<xc& <<xo =e&&
+x~
+xc
+xm
+xo
+s=x=xer= && s=x=xr& xu=e && s=x=xer = && s=x=xx & uc xn=e &&
+s=.=xu & <<o=e &&
+x~
+o
+s=x=x ano= && s=x=xu & <<o=e &&
+x~
+o
+s=x=xus= && s=x=xo & uc xz=e && s=
+== && s=.== && s=.+=reverse uc=e && s=.=
+r= && s=.+=reverse uc=se &&
+
+warn uc
+
+
+I wonder whether it would be possible to write a Turing Machine
+in this restricted language, demonstrating its algorithmic
+completeness.
+
+ .robin.
+
+
+Notes:
+ http://www.kitsite.com/~robin/ou-x-po/talk/perl-prisoner.html
+
+Analyzing font metrics:
+ http://www.kitsite.com/~robin/ou-x-po/fontm.c
+ http://www.kitsite.com/~robin/ou-x-po/prisoner.pl
+%%
+#sn@neopoly.de 
+#received an honourable mention 2000 TPJ Obfuscated Perl Contest
+$\=$/,$^X=~m(((.)..l));$~=q,od,,$_='sven@sven.de 2000/01/04'
+,$;="/$2$~/$1f\141q".(close STDERR).".$2$~";$#=length,print
+map{@ARGV=-f$_.$;?$_.$;:m;();;m>"(j.{$#})>while<>;$+}@INC
+%%
+#"Christensen, David A. (CHC)" <DChristensen@chc.gov.mb.ca> with thanks to
+#Andy Lester
+#!/usr/bin/perl
+undef $/;@t=split//,<DATA>; print map{$_<0?chr(-$_):$t[$_]} qw
+/-74 32 10 11 5 40 41 44 43 75 80 76 27 48 64 65 26 54 7 1 91 -107 69 58/;
+__END__
+David Christensen
+Technical Consultant
+Manitoba Public Library Services
+
+%%
+#Mark-Jason Dominus http://www.plover.com/
+
+require 5.00553;
+use re 'eval';
+$|=1;
+$z = qr{(?{local$d=1})
+        (?:`(?{$d++})
+          |.(?{$d--})
+        )+?
+        (?(?{$d})(?!))
+       }x;
+$_="``As`SB``Ad``S``BS`BBI``Ae``B`SI`Ed``A?``C``CIi`pI``E?Z``BZZZZZ`KI
+```CX`KIZZQZZZQZZZZZQZZZZQZ``BZZ```CX`KX`KXQ``Ee``EeZZZZZQZ```CX`KIZZQ
+```CX`KIZZQZZZZQ```CXZ`KIZZQ``Ee```CX`KIZZQ``EdZZZQZ``BZZ```CX`KX`KXQ`
+`BZ```CX`KIZZ`KXZQ``Ee```CX`KIZZQ``EdZZZQ``BZZZZ`KXQZ``BZZ```CX`KX`KXQ
+``B```CXZ`KIZZ`KXQ``Ee``EeZZZZZQ``B``EeZZZ`KXQ``Ee``EdZZZQ``Ee```CX`KI
+ZZQ``EdZZZQ``Ed``Ee```CX`KX`KI";
+s/\n//g;s/Q/`KI``E?/g;s/X/IZZZ/g;s/Z/``Es/g;
+1 while
+  s{`I($z)          (?{$q=0})|``K($z)($z)                    (?{$q=1})
+   |```S($z)($z)($z)(?{$q=2})|```B($z)($z)($z)               (?{$q=3})
+   |```C($z)($z)($z)(?{$q=4})|``A($z)($z)                    (?{$q=5})
+   |`i($z)     (?{$R++,$q=6})|`p($z)(?{print(chr 120-$R), $R=0, $q=7})
+   |`E($z)          (?{$q=8})|`V($z)                         (?{$q=9})
+   }
+   {local $^W; 
+   $q<5 ?($1,$2,"``$4$6`$5$6","`$7`$8$9","``$10$12$11")[$q]
+   :$q==5?($bind{$13}=$14,"")
+   :($15,"",$bind{$17},"")[$q-6]
+    }ex;
+%%
+Author:  Mark-Jason Dominus
+@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
+@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f|ord
+($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
+close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
+
+[note: Won 2nd place in the 5th annual obfuscated Perl contest. 
+ see http://perl.plover.com/obfuscated/ for more info. ]
+%% 
+#Yanick Champoux
+#http://www.iro.umontreal.ca/~champoux/sigs/
+print map chr$_[0]-ord$_,@_='200ocT�gZYT`cV�xcV\�`ge]cV'=~m;(\d+|.);g;
+%%
+#Richard Proctor <Richard@waveney.org>
+@{$_}=(@{$_-1},1)for(1..9);
+map{s/./sprintf"%02d",ord$&/eg}($h,$l)
+=("0X\cFMWD\cDDF.CD","\cY\"\cEY*\\\cH\\<\cEK\\");
+print chr((@{substr($h,$_,1)}.@{substr($l,$_,1)})+32)for(0..23)
+%%
+#Richard Proctor <Richard@waveney.org>
+sub x{for(split'',"Abigail!"x3){print chr(shift()+ord)}}
+x(9,19,10,13,-65,-8,2,78,51,6,-4,11,-65,-25,-7,81,43,-66,-33,-6,2,2,-7,81)
+%%
+#Gaal Yahas <gaal@forum2.org>
+perl -le
+   '@Just_another_Perl_hacker=map{/^[^*].*hack/&&s,_, ,g&s,$,\,,&print}%::'
+%%
+From merlyn@iwarp.intel.com (Randal Schwartz) 1 Feb 90 22:28:58 GMT
+@a=split(/(\d)/,"4Hacker,2another3Perl1Just");shift(@a);%a=@a;print "@a{1..4}";
+%%
+From Andrew.Vignaux@comp.vuw.ac.nz (Andrew Vignaux) 22 Aug 90 11:10:18 GMT
+$s=(localtime(time))[0]; sub n { ($a - $b) * $s; }
+print grep(s/.*\t//,sort n grep($_=++$i/-50."\t$_",split(/\n*/,<<JAPH)));
+,rekcah lreP rehtona tsuJ
+JAPH
+%%
+From merlyn@iwarp.intel.com (Randal Schwartz) 29 Aug 90 19:14:54 GMT
+print pack("c*",(32..127)[42,85,83,84,0,65,78,79,84,72,69,82,0,48,69,82,76,0,72
+,65,67,75,69,82,12])
+%%
+Date:         6 Feb 90 22:31:17 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+print grep(s/^\d+(.*)/$1 /, sort(split(/ /,"8hacker, 4Perl 1Just 2another")));
+%%
+Date:         5 Feb 90 18:08:59 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+%_=split(/(\D+)/,"7Perl6another8hacker,5Just");print"@_{5..8}";
+%%
+From:         merlyn
+print pack('C25', grep($_ && $_ -= 256, split(/(\d\d\d)/, <<STRANGE)));
+330373371372288353366367372360357370288336357370364288360353355363357370300
+STRANGE
+%%
+Date:         11 Feb 90 20:32:28 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+for (unpack('C25', 'Just another Perl hacker,')) {
+	printf "%03d", $_ + 256;
+}
+$_="wHFG NABGURE cREY UNPXRE,";y/a-zA-Z/N-ZA-Mn-za-m/;print;
+%%
+Date:         15 Feb 90 23:01:59 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_="Just another Perl hacker,";for$i(1..length){print substr($_,$i-1,1);}
+%%
+Date:         18 Feb 90 19:05:13 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+print pack('C25', reverse unpack('C25', ',rekcah lreP rehtona tsuJ'));
+%%
+Date:         21 Feb 90 18:13:49 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+print reverse split(/\/*/,",rekcah lreP rehtona tsuJ");
+%%
+Date:         21 Feb 90 20:51:25 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+echo Just another Perl hacker,|perl -e 'print$1if($_=<STDIN>)=~/^(.*)/;'
+%%
+Date:         23 Feb 90 19:01:21 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+
+format STDOUT =
+@<<< @<<<<<< @<<< @<<<<<,
+$Just, $another, $Perl, $hacker
+.
+for("Just","another","Perl","hacker"){eval"\$$_=\$_;";};write;
+%%
+Date:         23 Feb 90 19:04:55 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$,=' ';print grep(s/^.//, sort "2another","4hacker,","1Just","3Perl");
+%%
+Date:         23 Feb 90 23:23:53 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+@a=split(/X*/," ,JPacehklnorstu");print@a[2,15,13,14,0,4,10,11,14,7,6,12,0,3,6,12,9,0,7,4,5,8,6,1
+2,1];
+%%
+Date:         27 Feb 90 17:33:57 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+Subject:      Re: more termcap.pl problems & a quick question
+In-reply-to:  pem@frankland-river.aaii.oz.au (Paul E. Maisano)
+Organization: Stonehenge; netaccess via Intel, Beaverton, Oregon, USA
+Newsgroups:   comp.lang.perl
+
+In article <1172@frankland-river.aaii.oz.au>, pem@frankland-river (Paul E. Maisano) writes:
+| sub p {
+|      local($str) = @_;
+|      $str =~ s/([\000-\037])/"^".pack("c", ord($1)+0100)/eg;
+|      print $str;
+| }
+[well, he said more than that, but that's the important part... :-]
+
+how about handling DEL too?
+
+sub unctrl {
+	local($_) = @_;
+	s/([\000-\037\177])/'^'.pack('c',ord($1)^64)/eg;
+	$_;
+}
+
+print &unctrl("\000\002\n\r\027ABC\177"),"\n";
+
+results in:
+
+^@^B^J^M^WABC^?
+
+print &unctrl("Just another Perl hacker,");
+%%
+Date:         27 Feb 90 17:48:36 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+for (split(/(.)/,"Just another Perl hacker,")) {print if $_;}
+%%
+Date:         28 Feb 90 01:32:25 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+@a=<;echo Just another Perl hacker,>; print join(" ",@a);
+%%
+Date:         28 Feb 90 01:51:32 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+mkdir("/tmp/$$",0777); chdir "/tmp/$$";
+grep(open(X,">$_"),"1Just","2another","3Perl","4hacker,");
+print join(" ",grep(s/^.//,<*>)); chdir ".."; system "rm -rf $$";
+%%
+Date:         28 Feb 90 02:03:37 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_ = <<END; s/../pack('C',hex($&))/ge; print;
+4a75737420616e6f74686572205065726c206861636b65722c
+END
+%%
+Date:         28 Feb 90 16:09:35 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$\="hacker,";$,="another ";print"Just ","Perl ";
+%%
+Date:         28 Feb 90 22:45:45 GMT
+From:         tneff@bfmny0.UU.NET (Tom Neff)
+@a=split(//,'1111211111131223311361214223121412311341121111222123616111111122'.
+'21233212615112114212321211121111222123321120');for$r(@a){for(1..$r){vec($s,$i,
+1)=$v;$i++;}$v^=1;}print"$s\n";
+%%
+Date:         1 Mar 90 06:27:25 GMT
+From:         jgreely@giza.cis.ohio-state.edu (J Greely)
+print reverse(split(/!?/,join(' ',sort split(/ /,"tsuJ rehtona lrep ,rekcah"))));
+%%
+Date:         1 Mar 90 17:06:10 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+for('Snobol','Perl'){print"Just another $_ hacker,\n";}
+%%
+Date:         5 Mar 90 17:39:29 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+pipe(R,W);if(!fork){exit print W"Just another Perl hacker,";}close(W);print<R>;
+%%
+Date:         6 Mar 90 11:07:32 GMT
+From:         Andrew.Vignaux@comp.vuw.ac.nz (Andrew Vignaux)
+@l = split (/(..)/,'1a7r4J1n0a7e7c1o8n248o1t4u8v4s7.207l27547a7n7g1h'.
+'0 511e3h7.8i564t3a6P1r7p8c8e6e3c3k7e3e533r7r286r6l4 6 1 8,7l7 3,');
+srand; $_=3*int(rand(2))+2; /^$_/;
+foreach (split(//,&g)) {/^$_/;print &g;} print "\n";
+sub g {join('',grep(s/^.//,grep(//,@l)));}
+%%
+Larry>   for(split(//,'))*))91:+9.*4:1A1+9,1))2*:..)))2*:31.-1)4131)1))2*:3)"'))
+Larry>   {for(ord){$i+=$_&7;grep(vec($s,$i++,1)=1,1..($_>>3)-4);}}print"$s\n";
+Larry> And a special version just for Randal:
+Larry>   grep(do{for(ord){$i+=$_%8;grep(vec($s,$i++,1)=1,5..($_>>3||print"$s\n"));}},
+Larry>   (@x=split(//,"))*))91:+9.*4:1A1+9,1))2*:..)))2*:31.-1)4131)1))2*:3)\7")));
+%%
+Date:         6 Mar 90 18:08:23 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+open(C,"|uncompress");$_=<<EOF;s/../pack('C',hex($&))/ge;print C $_;
+1f9d904aeacca103228c9b3774d094910302ca423620d08419b366210b05
+EOF
+%%
+Date:         6 Mar 90 21:36:52 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+print $_ x (($_ = "just another Perl hacker,") =~ s/j/J/);
+%%
+Date:         7 Mar 90 05:58:52 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_="kheauroes ,rJttParn lhc e";srand(1);
+while($a=length){$a=rand($a);print(substr($_,$a,1));substr($_,$a,1)="";}
+%%
+Date:         7 Mar 90 18:12:26 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+
+open(M,"/usr/games/lib/quiz.k/morse") || die "morse: ($!)";
+while(<M>) {next unless /([A-Z]):(.*)/; $m{$2}=$1;} close(M);
+print grep($_ = ($m{$_} || $_), split(/([^-.])/,<<EOF)); exit 0;
+.--- ..- ... -/.- -. --- - .... . .-./.--. . .-. .-../.... .- -.-. -.- . .-.,
+EOF
+%%
+Date:         26 Mar 90 16:20:37 GMT
+From:         raymond@sunkist.berkeley.edu (Raymond Chen)
+$_='x"Not ";"x\"another \";\'x\\"perl \\";x\\"hacker,\\"\'"';s/x/print/g;eval eval eval;
+%%
+Date:         10 Mar 90 01:44:00 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+for($i=129600;@x=gmtime($i),(print substr('Just another Perl hacker,',$x[5]*12+$x[4]-840,1)),($i+
+=2639520)<66117600;){;}
+%%
+Date:         10 Mar 90 01:55:18 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+printf "%c"x 25,74,117,115,116,32,97,110,111,116,104,101,114,32,80,101,114,108,32,104,97,99,107,1
+01,114,44;
+%%
+Date:         11 Mar 90 01:03:06 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+%X=split(/(\d)/,'another2Perl4hacker,8Just1');sub X {$X{$a}<$X{$b}?-1:1;} print join(" ",sort X k
+eys X);
+%%
+Date:         11 Mar 90 16:56:40 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+print join('',grep(s/.*"(.)".*/$1/,split(/\n/,<<)));
+Gimme a "J"!
+Gimme a "u"!
+Gimme an "s"!
+Gimme a "t"!
+Gimme a " "! :-)
+Gimme an "a"!
+Gimme an "n"!
+Gimme an "o"!
+Gimme a "t"!
+Gimme an "h"!
+Gimme an "e"!
+Gimme an "r"!
+Gimme a " "! :-)
+Gimme a "P"!
+Gimme an "e"!
+Gimme an "r"!
+Gimme an "l"!
+Gimme a " "! :-)
+Gimme an "h"!
+Gimme an "a"!
+Gimme a "c"!
+Gimme a "k"!
+Gimme an "e"!
+Gimme an "r"!
+Gimme a ","! :-)
+What's that spell??
+
+%%
+Date:         13 Mar 90 20:00:26 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+print +(split(//,'Just anoherPlck,'))[0..7,3,8..10,4,11,9,10,12,4,8,5,13,14,9,10,15];
+%%
+Date:         20 Mar 90 01:21:37 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_=',Pr0e=kRcza0hb 5lOr+e"PE :rBe}hRtho]nhaj nt.s[u=J@';s/../unshift(a,$&)/eg;chop(@a);print@a;
+%%
+Date:         17 Mar 90 18:30:39 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+
+@ARGV=split(//,'Just another Perl hacker,');push(@x,'')while@x<@ARGV;
+for$x($[..$#x){grep(*y=*_,$x[$x]);$y=shift;}print@x;
+
+@ARGV=split(//,'Just another Perl hacker,');push(@x,'')while@x<@ARGV;
+for$y(@x){$y=shift;}print@x;
+
+%%
+Date:         17 Mar 90 22:34:02 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+@X=split(//,'Just another Perl hacker,');*Y=*X;print @Y;
+%%
+Date:         20 Mar 90 01:21:37 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_=',Pr0e=kRcza0hb 5lOr+e"PE :rBe}hRtho]nhaj nt.s[u=J@';s/../unshift(a,$&)/eg;chop(@a);print@a;
+%%
+Date:         20 Mar 90 01:53:40 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+print "Just another Perl hacker," x "1no time to write a cute signature";
+%%
+Date:         20 Mar 90 20:35:16 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_='5O1v3v5y9)1b7u2q4x1i0e3u2"3S9n5w7s6&7o7h8k1l6k3u3/';s/(.)(.)/pack('C',ord($2)-$1)/eg;print;
+%%
+Date:         20 Mar 90 23:33:06 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+eval <<EOF;
+print "Just another Perl hacker,"
+EOF
+%%
+Date:         21 Mar 90 16:38:55 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_="7072696e7420274a75737420616e6f74686572205065726c206861636b65722c27";
+s/../pack('C',hex($&))/eg; eval;
+%%
+Date:         23 Mar 90 04:37:57 GMT
+From:         raymond@hilbert.berkeley.edu (Raymond Chen)
+$_="krJhruaesrltre c a cnp,ohet";$_.=$1,print$2while s/(..)(.)//;
+%%
+Date:         24 Mar 90 22:36:53 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+@a=split(//,",rkeacrl hher PeJust anot");print splice(@a,@a*2/3,@a*2/3+1)while@a;
+%%
+Date:         27 Mar 90 00:25:41 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_=q(q-q:!print "Just another Perl hacker," :-) ;-7 while$_=eval
+%%
+Date:         27 Mar 90 00:31:26 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+for(1..32){grep((print "${_}Just another Perl hacker,$_\r"),'-','\\','|','/');}
+%%
+Date:         27 Mar 90 16:16:30 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+@p=split(//,",rekcah lreP rehtona tsuJ");p:print pop(p);goto p if @p;
+%%
+Date:         27 Mar 90 16:36:46 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$|=1;$_=<<'-- ';s#..#printf"%c",(fork?wait&&$?/256:exit hex($&))#eg;
+4a75737420616e6f74686572205065726c206861636b65722c
+%%
+Date:         28 Mar 90 16:12:34 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+open(STDERR,">&STDOUT");warn "Just another Perl hacker,\n"
+%%
+Date:         28 Mar 90 18:06:57 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_ = "Just a sed user,";s/a/another/;s/sed/Perl/;s/user/hacker/;print
+%%
+Date:         28 Mar 90 19:27:25 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_="reJ alounPt srhaetchr, ek";s/(..)(.)(..)/(print$2),$3.$1/eg;s/(.)(.)(.)/(print$2),$3.$1/eg;pr
+int
+%%
+Date:         28 Mar 90 21:35:44 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+($_="Just another Perl hacker,"); 0 while s#.# do {print $&;} #e,s/^1//;
+%%
+Date:         30 Mar 90 19:18:27 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_=<<EOF;for$c(97..121){$x=sprintf("%c",$c);printf"%c",32+eval"y/$x/ /";}
+ldhnxdqflccjgixntpttudphiwljotwvvqsoiifujkxcfxsjtsxahsgobxhbkwocoglgkj
+vjiibdlqcjtgifhhvbpjqswfuxtjqudgcvsfdhufnsfxgjsvwxjjckgxpogktbkdgxpxkt
+sillcoidtqkqcxnsoptdhgqhnjhkolojcgbxcipiniokdpdnhvuvwondpqgcudjiucgdli
+llilclpsniuogqntvvbuwpdhdgvnbfaiplndubaipapwisjxocfuvsasjifdbcdtbtojfd
+phpxidhbdavxpxpbidcfbaxwwvddbpscdccatxbpckhavtldtvlvsgbpvlqxolowbvcloa
+jlfltiqwqqjafxlfpcgiqbxsvpgpvgsiblwgllvicfcifkulujvspoxklihaxkddnohidk
+gfsffjtugalibsginvhbkikuawfpcgppvvdfpkocjsluvcqnskvtjuppkfglpbcbsvxqxi
+opxwkovjhvqwojkfckqysxqsibbanxivcitctldvxilcvupxxldhnvsthocjcolhwqtwti
+nitspguakklhgkjwvlfwddsvuuwixhqvjpgbjpjtbojanxwutxsvuvicdgnsikkqqbdthu
+lwcasbqokhpwxskbqpcdlngqwnwqtbxpugafvnkhhbhscgusitstucvlubgilfaaulphlv
+ohpogqwqoauqtbvboupwjpfhggvkkbsbcxiolqkppdiqltjnxnsnstdsosfupcyjxwgpqg
+ahuscvvhohjxipcqwjxdwdusxwgyydatihdlbigusjqlpocdfpijvfhwuuggbtginttlxi
+wcqklviatnjgbnslbhxbgxqwvqyfvxnxiulktwigvbbodwfqjkduopfyugjqqfhdxgqbjs
+dupicidbqflkowtbnjqiwpqxpynibbiqhbagsuiqkpbfqnjyooswwchbqkpxqbwgxhkwoq
+htokfhhjdsavpkdldlkndkcwcghybhpcsocdwboqtnilvkwqvtxdwadbjqihjfdtgksblk
+aaddbwhalcdgtgblbhdsvnxcuqqbfldhkjfghdpvtnxsnoipfcvslxicolwfxbjbcnbwgo
+vlvhfcqcjonddjttdcsgxxiulvljsjsiuhhfwpkocngspoxdjsykwpofgplkncopvcwlgq
+xscfxpfiidtghbxspjcbjuuuhnvqwviuciobkapaxbisdnixjsakqsahlfihtlqxsfjgbo
+xaptdwcvlgohpvggoujoogjcobjwwugkfdbklhghuuthcbksdqcvcgatokqcdichpiwbjc
+buxyhwhnuxkiqwivdbgpvjqfuditkplfcsjjkflohigswtdjtahfclqkxouvabxfotbuhf
+tbfqlqkibvagngkuvwnpjcqhpowfqhuaoqccdlupdwosvupxqbvqpkihvftwfbsodsyjgp
+hhbxhwfhkiadlwfwxunbhuqppbhjguctjldfoqtgkllcllxtxxklxwdtcdhklxusxjcixg
+EOF
+%%
+Date:         2 Apr 90 18:45:15 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+@A=split(/\n/,<<'-- ');$A[9-$b-($b>5)]=~s/\*/vec($_,8*length($`)+$b-1,1)=1/eg while++$b<9;print;
+                         
+**** ******* **** ****** 
+ ************ ***********
+.........................
+ ***    *  * * *       * 
+*     ** *      * *  *  *
+ * *  *** *   * *     * *
+* *   **   *   *    ** * 
+ **  * *  *   *    ****  
+-- 
+%%
+Date:         3 Apr 90 22:44:56 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+@ARGV=split(/\S\n?/,<<EOF);$a+=length(shift),vec($_,$a,1)=1while@ARGV;print;
+ :-)  :-)   :-)  :-)  :-)  :-) :-) :-)  :-) :-)   :-) :-) :-)    :-)  :-) :-)
+ :-)       :-)   :-)     :-) :-)   :-) :-) :-)  :-) :-)  :-) :-) :-) :-)  :-)
+ :-)    :-)  :-) :-) :-)     :-)  :-) :-)  :-)  :-)   :-) :-)   :-)   :-) :-)
+ :-)       :-)       :-)  :-)  :-)  :-)   :-) :-)   :-)   :-) :-) :-)    :-)
+ :-)  :-) :-)       :-)      :-)  :-) :-)  :-)     :-) :-)  :-) :-)    :-) :-)
+  :-) :-)  :-)  :-) :-)  :-)  :-)   :-) :-)   :-)   :-) :-) :-)    :-) :-)  :-)
+EOF
+-- 
+%%
+Date:         3 Apr 90 22:40:40 GMT
+From:         raymond@wish-bone.berkeley.edu (Raymond Chen)
+$x=split(/( )/,'Not another perl hacker,');$_=q$x$x$x;s$x$print shift(@_)$eg;
+%%
+Date:         4 Apr 90 03:02:23 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+@_=("Just another Perl hacker," =~ /(.*) (.*) (.*) (.*)/);print"@_";
+%%
+Date:         10 Apr 90 02:18:38 GMT
+From:         tneff@bfmny0.UU.NET (Tom Neff)
+system qq|perl -e 'system qq!echo Just another ANSI Perl hacker,!'|
+%%
+Date:         11 Apr 90 08:46:10 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+eval q(eval q-eval q:print"Just another Perl hacker,"  :-)
+%%
+Date:         16 Apr 90 15:58:21 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_='987;s/^(\d+)/$1-1/e;$1?eval:print"Just another Perl hacker,"';eval
+%%
+Date:         17 Apr 90 00:20:39 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+@L = split(/ /, <<EOL); eval '$'.pop(@L).'='.@L while @L;
+zero one two three four five six seven eight nine
+EOL
+for (split(/\s+/,<<"EOF")) { printf "%c",$_; }
+$seven$four $one$one$seven $one$one$five $one$one$six $three$two
+$nine$seven $one$one$zero $one$one$one $one$one$six $one$zero$four
+$one$zero$one $one$one$four $three$two $eight$zero $one$zero$one
+$one$one$four $one$zero$eight $three$two $one$zero$four $nine$seven
+$nine$nine $one$zero$seven $one$zero$one $one$one$four $four$four
+EOF
+%%
+Date:         18 Apr 90 13:47:12 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_=",rekcah lreP rehtona tsuJ";s/.$/eval 'print $&',""/e while length
+%%
+Date:         19 Apr 90 23:21:03 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+print grep($_=sprintf("%c",exp($_)),split(/\s+/,<<'-- '));
+4.311 4.766 4.749 4.758 3.481 4.580 4.705 4.714 4.758 4.649 4.620 4.741 3.481
+4.388 4.620 4.741 4.687 3.481 4.649 4.580 4.600 4.677 4.620 4.741 3.795
+%%
+Date:         27 Apr 90 14:55:59 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_ = "cker,rl haer PeanothJust "; s/(.{5})$/(print$1),""/e while length
+%%
+Date:         27 Apr 90 19:12:09 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_ = <<EOF; s/(\d\d)(\d\d)\s*/substr(($!=$1,"$!"),$2,1)/eg; print;
+J0204020301020103042001060101010202060107010801031300010701080210
+0103020604200205150401070108,
+EOF
+%%
+Date:         27 Apr 90 21:02:12 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_ = <<EOF; s#[-+]\d+#pack('C',$c+=$&)#eg; print;
++74+43-2+1-84+65+13+1+5-12-3+13-82+48+21+13-6-76+72-7+2+8-6+13-70
+EOF
+-- 
+%%
+Date:         30 Apr 90 21:03:34 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_="Just_another_Perl_hacker,";open(_,">$_");print<$_*>;unlink;
+%%
+Date:         2 May 90 16:44:45 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_ = "Jvtu bopuifs Pfsm ibdlfs,"; y/a-z/za-y/; print
+%%
+Date:         6 Apr 90 17:09:14 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+sub _{$b-$a;}print((split(//,",rekcah lreP rehtona tsuJ"))[sort _ 0..24])
+%%
+Date:         18 Apr 90 23:02:31 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_='vec(1,1,1); print substr($_ ^ "<\020\020\134\021M_CEA^RP\042\014\034\030\000\033\024\001\030\
+021\000\004",0,25)'; eval
+%%
+Date:         18 Apr 90 23:02:31 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_='vec(1,1,1); print substr($_ ^ "<\020\020\134\021M_CEA^RP\042\014\034\030\000\033\024\001\030\0
+21\000\004",0,25)'; eval
+%%
+Date:         19 Apr 90 17:18:27 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+print ('Just ','anoth','er Pe','rl ha','cker,')[0..4]
+%%
+Date:         2 May 90 16:44:45 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_ = "Jvtu bopuifs Pfsm ibdlfs,"; y/a-z/za-y/; print
+%%
+Date:         15 May 90 16:02:24 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+open(P,"|perl");print P"format=\nJust another Perl hacker,\n.\nwrite"
+%%
+Date:         22 May 90 21:41:18 GMT
+From:         flee@shire.cs.psu.edu (Felix Lee)
+@a=split(//,$]);@b=split(//,"k ple th\nhroeaarcn.");$k=$#a=$#b;@a=sort grep($_.=$k++,@a);print@b[substr(pop(@a),1,2)-$#b]while(@a);
+%%
+Date:         25 May 90 15:29:25 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_=pack("c25",65..90);y/A-Y/Just another Perl hacker,/;print
+%%
+Date:         26 May 90 00:00:37 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+sub isplit { # &isplit(word,string) => array
+	local($word,$_) = @_;
+	local(@ind,@result,$start,$end);
+	@ind = (0);
+	s#$word#push(ind,length($`),length($`.$&)),$&#ieg;
+	push(ind,length);
+	# @ind now has pairs of indicies (0-origin) into $_
+	# that bound the non-$word items; convert into result:
+	while (@ind) {
+		$start = shift(ind);
+		$end = shift(ind);
+		push(result,substr($_,$start+$[,$end-$start));
+	}
+	@result;
+}
+print &isplit("z","JzuZsztZ zaZnzoZtzhZezrZ zPZezrZlz ZhzaZczkZezrZ,");
+%%
+Date:         5 Jun 90 19:07:58 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$,=" "; print +("hacker,","Just","Perl","another")[1,3,2,0];
+%%
+Date:         14 Jun 90 06:38:52 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+open(o,"|cat");print o "Just another Perl hacker,"
+%%
+Date:         15 Jun 90 01:37:14 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+print `perl -e 'print STDERR "Just another Perl hacker,"' 2>&1`
+%%
+Date:         15 Jun 90 16:15:31 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_ = <<'-- '; s/../printf "%c",hex($&)/ge;
+4a75737420616e6f74686572205065726c206861636b65722c
+-- 
+%%
+Date:         15 Jun 90 22:06:24 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+printf "%s %s %s %s%c", 'Just', 'another', 'Perl', 'hacker', 44
+%%
+Date:         16 Jun 90 19:22:20 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+print <;echo Just another perl hacker,>
+%%
+Date:         18 Jun 90 07:49:28 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_ = "Just another Perl hacker,"; { redo if s/./(print $&),""/e; }
+%%
+Date:         18 Jun 90 15:53:11 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+print "Just another Perl hacker," if "you can't think of anything better..."
+%%
+Date:         20 Jun 90 17:51:58 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_ = <<'-- '; s/../pack("c",hex($&))/eg; eval;
+7072696e7420224a75737420616e6f74686572205065726c206861636b65722c22
+-- 
+%%
+Date:         25 Jun 90 20:58:27 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+%_=split(/(\D+)/,"4Perl1Just8hacker,2another");print"@_{sort(keys(_))}"
+%%
+Date:         26 Jun 90 18:02:43 GMT
+From:         bill@ksr.com (Bill Mann)
+$_="another Just hacker $]".`ps c$$`;@_=split;print"@_[1,0,$#_,11,13,2],\n";
+%%
+Date:         27 Jun 90 00:20:08 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+%_=@_=("Perl","hacker,");print"@_[!print 'Just '] @_{(keys _)[!print 'another ']}"
+%%
+%%
+Date:         28 Jun 90 17:57:59 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+print "$ARGV[push(@ARGV,'Just another Perl hacker,')]"
+%%
+Date:         30 Jun 90 21:11:02 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+for("hacker","Perl","another","Just"){substr($x,0,0)="$_ ";}substr($x,-1,1)=",";print$x
+%%
+Date:         1 Jul 90 18:24:21 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+print grep($_=pack("c",hex($_)),unpack("A2"x 25,"4a75737420616e6f74686572205065726c206861636b65722
+c"))
+%%
+Date:         1 Jul 90 22:55:10 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$x=25;print substr(',rekcah lreP rehtona tsuJ',$x,1) while --$x >= 0
+%%
+Date:         3 Jul 90 00:19:58 GMT
+From:         raymond@bosco.berkeley.edu (Raymond Chen)
+$_="-|";open _||print"creaJklrnue  osrhptt,aeh ";while(<_>){$}=5;s/(.{$}})(.)/(print$2),$1/eg whil
+e--$};print;}
+%%
+Date:         5 Jul 90 17:18:01 GMT
+From:         merlyn@iwarp.intel.com (Randal Schwartz)
+$_="cker,rl haer PeanothJust ";1 while s/(.{5})(.{5})?/$_{$2}=$1,$2/e;print while $_=$_{$_};
+%%     
+#!/usr/bin/perl
+# 
+# ppencode - perl program encode "Fun With Reserved Keywords" (2005/09/07)
+# 
+# Copyright(C) 2005 Yoshinori TAKESAKO. All rights reserved.
+# 
+my $words = ['abs','accept','alarm','and','bind','binmode','bless','caller','chdir','chmod','chomp','chop','chown','chr','chroot','close','closedir','cmp','connect','continue','cos','crypt','dbmclose','dbmopen','defined','delete','die','do','dump','each','else','elsif','endgrent','endhostent','endnetent','endprotoent','endpwent','endservent','eof','eq','eval','exec','exists','exit','exp','fcntl','fileno','flock','for','foreach','fork','formline','ge','getc','getgrent','getgrgid','getgrnam','gethostbyaddr','gethostbyname','gethostent','getlogin','getnetbyaddr','getnetbyname','getnetent','getpeername','getpgrp','getppid','getpriority','getprotobyname','getprotobynumber','getprotoent','getpwent','getpwnam','getpwuid','getservbyname','getservbyport','getservent','getsockname','getsockopt','glob','gmtime','goto','grep','gt','hex','if','import','index','int','ioctl','join','keys','kill','last','lc','lcfirst','le','length','link','listen','local','localtime','log','lstat','lt','m','map','mkdir','msgctl','msgget','msgrcv','msgsnd','my','ne','next','no','not','oct','open','opendir','or','ord','pack','pipe','pop','pos','print','printf','push','q','qq','qr','quotemeta','qw','qx','rand','read','readdir','readlink','recv','redo','ref','rename','require','reset','return','reverse','rewinddir','rindex','rmdir','s','scalar','seek','seekdir','select','semctl','semget','semop','send','setgrent','sethostent','setnetent','setpgrp','setpriority','setprotoent','setpwent','setservent','setsockopt','shift','shmctl','shmget','shmread','shmwrite','shutdown','sin','sleep','socket','socketpair','sort','splice','split','sprintf','sqrt','srand','stat','study','substr','symlink','syscall','sysread','system','syswrite','tell','telldir','tie','time','times','tr','truncate','uc','ucfirst','umask','undef','unlink','unpack','unshift','untie','use','utime','values','vec','wait','waitpid','wantarray','warn','while','write','x','xor','y'];
+my $codes = [['8182','8282','798182'],['75755479817C','75755479811E','61817C'],['61811E','61817069','61818127'],['618164','618195','61812734'],['61810D5E','61810DC7','6181115E'],['618189','61810B5E','618118'],['6181085E','618108C7','6181095E'],['6181044F','618193','6181075E'],['6181064F','618107D2','61810829'],['61810729','61810735','61810E29'],['6181054F','618110D2','618113D2'],['61810084','61810384','61811029'],['61811609','618116B7','6181176F'],['6181166F','61811742','618117AB'],['61810184','61811642','618116AB'],['75755479816B69','61811649','61813966'],['61814466','61818739','61818839'],['61818AB1','61818E3D','61819039'],['61814566','75757579816902','75757579818127'],['61818A3D','618181392681','6181813A7C81'],['61818A39','6181817662C681','618181196ABD81'],['618181A8AB0681','61818106658D81','6181819BA20B81'],['757579816902','757579818127','61818174284D81'],['61818120D1B981','618181B84581','618181751D017E81'],['618181510EA681','61818170804481','618181AF0ED2B481'],['546182813B0781','54618181392681','546181813A7C81'],['7579816902','7579818127','618181D648903281'],['6181D99203688331D9','61818174253B81','618181ABABA181'],['618181B991641881','618181B7AF92B381','61818172634481'],['618181D54C5081','6181D9A9B91F5681D9','61818149D9B96B5A81'],['61818176B9663981','6181813512A9D37981','6181811CB20E35BE81'],['6181D90282D5A0D9','6181DB6A728982739ADB','61818151C69A1381'],['79818181','79828181','79818127'],['54618181A8AB0681','5461818106658D81','546181819BA20B81'],['5461818174284D81','5461828144D781','6181813435437FB481'],['75757579C7816A69','75757579C7811D71','75757579C7811D34'],['75757579C785810481','75757579C785810581','75757579C785810681'],['75757579C7815E28','75757579C781751B','75757579C7817573'],['75757579C785813081','75757579C785813281','75757579C785812D81'],['75757579C785813481','75757579C785815381','75757579C785814F81'],['75757579C7811E','755479816902','755479818127'],['75757579C781115E','75757579C785816981','75757579C78195'],['7575757985811C81','7575757985811B81','7575757985811A81'],['757579C7816A69','757579C7811D60','757579C7811D71'],['757579C785810481','7575757985813081','757579C785810681'],['757579C7815E28','757579C781751B','757579C7817573'],['757579C785813081','757579C785813281','757579C785812D81'],['757579C785813481','757579C785815381','75757579816B69'],['75757579817673','7575757981B496','7575757981761B'],['75757579812760','75757579812771','75757579812734'],['757579C7811E','5479816902','5479818127'],['757579C785816981','757579C781115E','757579C78195'],['75757985811C81','75757985811B81','75757985811A81'],['7579C7816A69','7579C7811D60','7579C7811D71'],['7579C785810481','7579C785810681','75757985813081'],['7579C7815E28','7579C781751B','7579C7817573'],['7579C785813081','7579C785813281','7579C785812D81'],['7579C785813481','7579C785815381','757579816B69'],['7579C7810DC7','7579C7810BC7','7579C7810D5E'],['7575798164','7579C781AE96','757579817C'],['757579817673','75757981B496','75757981761B'],['757579812760','757579812734','757579812771'],['7579C7811E','757579818381','757579817873'],['7579C78195','7579C781115E','7579C785816981'],['757985811C81','757985811B81','757985811A81'],['79C7816A69','79C7811D60','79C7811D71'],['79C785810481','79C785810681','757985813081'],['79C7815E28','79C781751B','79C7817573'],['7579810D5E','7579810DC7','79C785811B81'],['79C7813466','79C78171AE','79C7818D78'],['79C785813281','79C785813081','79C785812F81'],['79C785813481','79C785815381','7579816B69'],['79C7810DC7','79C7810BC7','79C7810D5E'],['75798164','79C781AE96','7579817C'],['7579817673','757981B496','757981761B'],['7579812760','7579812734','7579812771'],['79C7811E','7579818381','7579817873'],['79C78195','79C781115E','79C785816981'],['7579815366','79C785817381','79C785817181'],['79C7817C','79C78164','79C781DAD9'],['7579818627','7579818681','7579812C60'],['79C7812760','79C7812771','79C7812734'],['79C7818381','79C7817873','79C7818327'],['79C785819681','79C78581AE81','79C7816C69'],['79C781B896','79C7816828','79C7815366'],['79C78581C781','79C78581CF81','79C7811C03'],['79C7812860','79C7812834','79C7812871'],['79C7818581','79C78581D381','79C7818527'],['79C7818627','79C7818681','79C7812C60'],['79C7817002','79C78581DB81','79C7817069'],['755479C781B896','755479C7816828','755479C7815366'],['755479C78581C781','755479C78581CF81','755479C7811C03'],['755479C7812860','755479C7812834','755479C7812871'],['755479C7818581','755479C78581D381','755479C7818527'],['755479C7818627','755479C7818681','755479C7812C60'],['755479C7817069','755479C78581DB81','755479C7817002'],['61818111B35D3F9A9A981A108C9A965C1901AE81','6181812CCACC200A3D6D5799534A90D881','6181D9B818492699A9AFD5228081694DBAD9'],['79816A69','79811D60','79811D71'],['7985810481','79811703','7985810681'],['79815E28','7981751B','79817573'],['7985811C81','7985811B81','7985811A81'],['79813466','798171AE','79818D78'],['7985813081','7985813281','7985812D81'],['7985813481','7985815381','7985814F81'],['79810DC7','79810BC7','79810D5E'],['7981AE96','7981C253','7981C268'],['75547985810481','7985815A81','75547985810681'],['7985815B81','7985815C81','79816B69'],['79811E','7985816081','7985815E81'],['7981115E','7985816981','798195'],['7985817481','7985817181','7985817381'],['79817C','798164','7981DAD9'],['7981761B','7981B496','79817673'],['79812760','79812771','79812734'],['79818381','79817873','79818327'],['798581AE81','79816C69','7985819681'],['7981B896','79816828','79815366'],['798581CF81','798581C781','79811C03'],['79812834','79812860','79812871'],['79818581','798581D681','79818527'],['79818627','79818681','798581D981'],['798581DB81','79817002','79817069'],['618181B3B74AA171902331979314A1741E4481','6181D98EA0B77A7BA5BC1E27B4AF25858FBB715B798FD9','618181468D4B9759375C2B482574729D079F1281'],['618181D8352CB4C710D76C5F192E0BD7BD9E95781C015DAE81','618181B09410389B6BC28A91D6804748524BA181','61818189340B62BC0E053061A617C73E488EB8B97A81'],['7575547985811C81','7575547985811B81','7575547985811A81'],['75755479813466','757554798171AE','75755479818D78'],['75755479810DC7','75755479810BC7','75755479810D5E'],['7575547981AE96','7575547981C253','7575547981C268'],['5479C785817A81','5479C785817B81','5479C785817D81'],['5479C7812760','5479C7812771','5479C7812734'],['5479C7818381','5479C7817873','5479C7818327'],['5479C785819681','5479C78581AE81','5479C7816C69'],['5479C781B896','5479C7816828','5479C7815366'],['5479C78581C781','5479C78581CF81','5479C7811C03'],['5479C7812860','5479C7812834','5479C7812871'],['5479C7818581','5479C78581D381','5479C7818527'],['5479C7818627','5479C7818681','5479C7812C60'],['5479C7817069','5479C78581DB81','5479C7817002'],['61818109CC1913AD90361A4C34C916873159DABEAA901881','6181DB6EA6623BAF9C73B6C57ECB288C8513B76ADA31565DAF79DB','618181A6D5AECE246FC67D1EAA1CC4B1D0C65107220881'],['6181D93BA7BB2DB98174444444A06D9D23115DD9','6181813C798B9F902A412C3EA841A0D63CACD7C04A81','6181D934A1257A5245B71892AAC5469DC7820D95638EBED9'],['6181815C2156A1C91C8AC3B564CF9932681023D96318B87481','618181040B380353725762034F12591425A55C0C1507BE62D95F7D81','618181A4002317D4BC880BCF1191381436919A753888B581'],['61818135BDB0AC4DAC80C54AABD1139851AFBB01180B81','618181BDC0B85851B7B895DBBD4899C223308E314E762F28B381','61818194C84AD6AA4EBE7188B041928C0A7A2275A9A89A81'],['618181BD36023291B44D0C80DB6D013F038A56B2599A2C1381','618181CA65C64F260A4F69C4020CB50897AD0EBA11CB6BBEBC81','6181D900B35ED31E169BBF7A1F4E816AD49B53B133233AD9'],['61818198B15FC910399CA68E9F3BABD53E0BD481','6181814EB841C47E65686C73B54763339E424F63A769AE9281','618181DBA6751F8A4E9E13BE8E2106D791894EC4A62881'],['6181D903791D3B4C99383D0F91BC41813FA269378ACB96D9','618181755BCAC808DB996D026945AACA2132A9D4090458052981','6181D98527213EB77D0C4E0B0E796FCF9AC0694B14300E3F701BD9'],['6181813E742A7C1E648B766B2E23D03155A128BBC6A70A5481','618181CB89971E03AD6D0F5A1D66391B5D662FA8CFAF096C38115381','6181D9BB702E85B884437D0DD8BF46CDB47F9D7E1602CD51D9'],['618181977D563DA105A47B501E06BA06AD656A259F0B81','6181D99626630F3B9D15A406272FA6441C9913A17A88C1D9','6181814C8090A0342E3747B88A1CC2A9647106A8199A904CDB81'],['61818150392ECF05453077C70016353159CB5A929512A281','6181810DCA750732C68C164A3F46605A19A33C13DA010B81','6181D9AB83611A89628A91B31DA4D444360AA0288F38D9'],['6181D9710AA5B924482110852FD2D5B823CF468EC13AD9','6181D947A2BD3D69892084D888AC4B38115FC16BB89DD9','618181CABD646D25670FC58BCE67145AC85E2A4DB7254C15C281'],['6181D91427476A4DB73956267DAC882FD313398A8D599F5CD9','618181419A6FA553D578BFBD265D72D7D573B9B11350A3A881','618181366F32BA3D8996926880938A39BDD82E2B4D9381'],['546181D9B818492699A9AFD5228081694DBAD9','5461818111B35D3F9A9A981A108C9A965C1901AE81','546181812CCACC200A3D6D5799534A90D881'],['5479816A69','5479811D60','5479811D71'],['547985810481','5479811703','547985810681'],['5479815E28','547981751B','5479817573'],['6181DBB6C22E29729F0075385C8B53DA037DC0117DC77136A193ADAEB49FDB','61818116737228516148B4095189D77E313F87C44D53A69AA781','6181810E179B2CCF33B0536539948CA22DB7524D5E36D6B00E81'],['6181D94FC81CBA217B9F6E81CB090E138A01B8062D7BC5DBCD36D0D9','6181813C11360FC5350D68A942C79B54B27C6D98BF3D07D0BA289B0781','6181D966DB85B48996230FB3184E8249259CA88D269C485FA9A296D9'],['6181DB5182D9D108044D1A300B820F2C09772A969B1CD7C4C597325E2AB1961ADB','6181810794CE9DA1D7BD491BD4A32BC3C64BBA6F764A0181','6181816D99BC401453CC0CC0AD7B4654D9C62064C65CBD525AA981'],['6181D9A3747FA71A1232981D373F4645008255271E2EAE3CA5D9','618181906DB3B01795219EBCD55749B32AD441AC1D655A0781','6181818C5799720B713D00A54413497A5A78A969BF991BB9D74E81'],['6181D9334CBF9E55A8C407A0A83F39D5AA83BFD5D1757C7ED9','6181811B55AF3B5E93CB4B9D970BCA6E7E36D6B7AAD0465D2E9081','618181BCA5370A9F392A699661C4492DA7C29F485C11C2C2BCB881'],['6181813DD6A780A81E19C010B88A0E8EAA80877DA8C52B1A8B7AD40181','6181D93F891DCE5D03387AD2381BB37D31B7B353C9BC2E85745C3E10D9','6181DB1B6C80AFCE024919BAD950C772939E27148D1113D19F954F11C910DB'],['618181A6BB263B8E5A44C349D417377F48374EB08E9E8D81','618181B5030B18C97DCCB4C02C446D6C04BE7BAAAE80A7A8D6922B8B81','6181818D12B4409CA8AB5860631187DB80D5C0D2B4D0BE4470529B763581'],['6181810F33984A2452455AD846A3C94ACC0168A0198C81','618181D40B4D893C6932BDBC147896389C05D438397769AE8AB581','61818170AD8B00B336D261A346575FD1A513D7A4337F0CAD81'],['6181810465313E9C227047C2A830A17A679278393B760C597781','618181ADCF03C272BA9497D44A7C554BC73C748C4A991E115B7A4781','61818165B707D48E6CAD3F7180C76F0AA410177D31731E40A481'],['6181815E5C107D2ECC40B93655AC0AAAD6C8CE5A7A40713B15A58C81','6181818EAA55C1D9A0457DD52046880530D2787270D159161D477481','6181D9B78F16A8060C36248248B84E6FC4C2014022B4404ED9'],['6181D9B77800D0551F6103B1851FC291912220443DCFCA6980936F52D9','6181D9848414645A38892E7B129544C30A673DA6A6837C87C4D9','618181BA5C7D5124BFCE41A68B23AE8855802D1A5505BC5F186028B09E81'],['618181D23A727C61BE93B990660F42793096371BCB3D569AA844B981','61818142C6303C6066B5BF7812420C61243BB503D79D6C1ED37ECA8081','61818159236F4F7232D4560274224A2FD5136DAC6AB95E0A704381'],['618181176D0D505C044F0DBB20AB49BE758E89254F0A7417B43BC25D81','6181810C0E1AC97868075480928CB13CAF68070EC9A9B1D8BABD1D644281','6181D956A7B06017469903927E9510934FCB8527C410340BC376836038D9'],['6181D97B6E27C62F1C689C15536EC8B69A6898B4536F4406BFA14C3FD9','6181D9623FA412670417875A95719C891A270E8A71CA8BBD236CA6C5D9','618181D4733D0EDA79B3AF32221B2BCBB58EAF50669DC73D660D1DC472CE81'],['618181D1804EDBBD66C3C76AC77557AE7925C2B5C9D04DC1B57E7A6EA10981','618181492E733EB85A45366176A475AA2D0F8D0C0EBAB0474381','618181D0C8B97A55D66C099C56C187CA8D7FD426D80F55C7ABBE081232649481'],['61818102A83DB2397418035646B47CB746163A032D52C209C1C381','61818180BCCD7046AF8AD1247D00C0C9B4770ED87BCBAA33B2AD772B81','618181C1036B22269EAF4D16C5096C795865BD2C2AAED7B75E76C9D793D681'],['6181D942209A3CB6D3B408B43C97184B1CC7D3A3AB4F6FCBD3D617D9','6181DBB14D87012C366377698150955CC0ABB426D97A58D3306F542BD3D98CC59771DB','6181D938AC0D96C1478DC76350A2698110438AB29888DB3C0CBD7725CED9'],['6181810AA3A9D33D0DA923C329B106938E0758AB78D88E90513A81','6181D9953FA7531A5B712DAE815E0F8D0C0613876F2369556FBA746AA87C61CBBAD9','6181819B4E2C3BA34128DB44217F10C6D7161DC25A18C334883881'],['6181813E3A458B5A055CB26D787CDAA26C7A01630DC179684EB17E81','6181D9CB431FA997500A5FB20AA82EC3B580A032B57127CB217359B69AD9','6181D9A1710271CF812283422D98438F4E8F1F348F951F6F6EA15B9810D9'],['618181A8B73D0E955F516C21067601C315266F501D756EA5033F773781','6181813A9FB4A1D035A02290C1446CA92F3109D3CAD26476B2299681','6181812E5A353D8792882198236BAE0A37BD721FA70E457CB76381'],['75547985811C81','75547985811B81','75547985811A81'],['755479813466','7554798171AE','755479818D78'],['755479810DC7','755479810BC7','755479810D5E'],['75547981AE96','75547981C253','75547981C268'],['75547985815A81','6181DB972F9C62A62699C04F7C3CAED2AA7E57A921CA1B8F1E6D57D925B2ABDB','6181D9A08585325B62B22893C61A37658767772D911849668710AB76C3ABD9'],['75547985815B81','75547985815C81','755479816B69'],['755479811E','75547985816081','75547985815E81'],['75547981115E','75547985816981','7554798195'],['6181D9AE18ACA1004CACA181D06A5E3D1891B661D4922FB51001C74785D9','6181D90D08D4B623451A3E66240DA6BC6AC21C9C7C06844944AAC3D9','6181DB9466CA959C22495F33D47397C5D78F37C919A81C4E567F3C72D4DB'],['6181DB24C22F65608B4C9D3B82477C50557861DA10B56B738191AF511A9F177280DB','61818164141F34519FC1C276AB3D22AA6A3326BA888A0F6A1F88AF03CB750EAA81','618181627E7303DAB24699CE4B77BB3936511CCE5752B7685E8B2C3C3F4781'],['618181688C9CAC33A18A62C707C3C4B5A0B3C5C8AAD514BACE03DB068969519781','618181050D097ACAB762D1992D440575479F74906B465F05A49060BDCF81','6181812FD39279CB1F8DA01270332525BBC869AE7E3BD72AB5A51C1B64CC81'],['6181D97E353BA906D36FC8C00EDB05D127B0747E21881CB5920D6E7EBEC735B1D9','6181D9897E9CD4B327894C5BA2DB9361B799CC6F469A2DC90E52B9ACC1D9','6181D9233A1739C98F8D991888BC4761B9D73A931EA33832AFD9'],['75547985817481','75547985817181','75547985817381'],['755479817C','7554798164','75547981DAD9'],['75547981761B','755479817673','75547981B496'],['755479812760','755479812771','755479812734'],['755479818381','755479817873','755479818327'],['75547985819681','7554798581AE81','755479816C69'],['618181569864B0719337D7DA1A7752663B9A240C49B3553870B3235B153CD581','6181813591D1AF7978BB512A143A984AC17AC3702113086340648A4E260881','6181D94348C3963FA91645C45ACA44833779C18A646B253A79665BD3D9'],['6181D9CCA79BA6A46946AC8A45427A812E52A58B8356CA390DCAC4BDD9','61818141490229AAC1AE684BD60479CF4760182F723DC7030C500F9C11DA0C5756D781','618181690B9B6BBE312A1687AE407E2A069BBD227F119F71D3916A925FBBCBA881'],['618181AB461FB93AB11B93D8541C936238B456A54B454E36576281','6181816048BEAA6E605087701F0A2428C9241A6F039E8EDA5AB5C62CAFA46E6C00B581','618181A68835BE9B137BA27B18911024C34307247C37346F5CB98EC41460B41E81'],['6181D9A91F6E7F8E9F882751BD936A8BCD9843988999C94A315AC40737D826D9','6181D97E211DC27469AA88CF99B60E6842C2B999BFBE8D877C369EC4871EB0A1B46881D351D9','6181D9B45A6C2087CF198EC232BDC9835C80D0811C8F7B1FA1876E4B7E404214C47CD9'],['6181D9663007D49B5B429E5C62651B818B401C05190D56BF7CDBD82E5B3A75249ADB4FD9','6181D961328C4952956C3D70AB5D90640B3C0D651B840B956E5E6652920F894F3F81D9','618181341CC73A5F9892C7058CBD80D1904F6CB2C567C88B246D2FD15D5672D6BC9B6981'],['6181817E21BE5368CCB9353C0F9D010332902E50075466AF9BC04B704737C86FBC81','618181729E8C919D37B91A9879444AC1486AC06C962F19D8D5C31B14954AC98A81','6181812A4D665AD99F735298A62C47CE76B3155BD62A050EBC87B390A53BAA2581'],['6181D9D34148BB997F314A823F6A786E61C5170D15C5643D9C0E5C61875A74B7CBD9','6181814726371B9E2F909C56477A6B196B7D505BBA89014C6C28537F4D28CF427C7C81','618181969A5A2CCB644DBC3762C07DDA4C6E874DCF23B851C7D9CD2B7F0DB4177CAE1981'],['61818158A318C1442674C7141C1AA2CA4B4F4E0CCCB0D6B56A4C348A3A550881','618181066A9B7FCF888AD4CC61204C2F7544A9871307565E5D400A4E3CB581','61818135BDBA596C5D1F989E96C8932B4324A3BF4C7134B30860A2A05906D2021B81'],['6181D94A7BBD9F3A6B1289251A9B7BC18C95956E7679ACAAA09EA4519C82D9','6181818E5EA2047B3547150041C59017B24BBA6D29331E880B3A347FC9CA179E760681','6181814D0CB91AD04D543FBA0E0C9AA09C263DAB629771DA3A19ACD6A7D281'],['6181D9208426CEC3A904BE33B33FB9C1526000584191CD046A1A1AC90709A551D7305171D9','61818171B27B6B49BCAB0D0C10CE5125630FA7ACA828B4C241194B79C28AAEA081','6181812DB96642293C6FA0906E4979B08A0D8BD253BB04BE5D70451F17D749D85981'],['755461818109CC1913AD90361A4C34C916873159DABEAA901881','75546181DB6EA6623BAF9C73B6C57ECB288C8513B76ADA31565DAF79DB','7554618181A6D5AECE246FC67D1EAA1CC4B1D0C65107220881'],['75546181813C798B9F902A412C3EA841A0D63CACD7C04A81','75546181D93BA7BB2DB98174444444A06D9D23115DD9','75546181D934A1257A5245B71892AAC5469DC7820D95638EBED9'],['6181D9BF3B38221EC4BAB26555D5839D6CB61BCD1A30CE2D2E0D6ECE9A901436BFA9D9','6181811C65CA714AD65F49246E2DA91E2445A946667B6F162172311F5C7D81','618181BFDA9A1B55D86F1614772515167F7E21B00E080DCBA9A53E87423E6381'],['618181AE2C62D7D94B0B57074F577502871DA35863365E654267C828B35A249DAD5E4981','618181986D0D8B00609168AF58A41C890ED128A4CE290036BB52327EB0C9C6493EC881','6181D9C955163D17060D0EA02889059E356617A518856C0461C0B4A2AC84A767D9'],['6181D9AFB550308E9B16C6CEB78D893103986F096D6381B4BA20C5AEBB5FC9ADAAAFC3D9','618181A14555D28B97133AD48964AA28D1C1253347618EA1B4969F1E6A8981','6181817157DB8D471B8A77806255D57A8CADBD6F32B4080C74664702B33D4C0ACBA81781'],['618181304A629D905E47741F5F2A6BD58C2C7F60B756C8CC337A527A8E455D60ADB781','61818176963C4D3C653B66412F9F48C159D5472A0DA43552A1D50ABD8C0181','6181812899626B791A8A617A55410E925B36B18C1993AE4F77B18E6F6C390CDBAC81'],['7554618181A4002317D4BC880BCF1191381436919A753888B581','75546181815C2156A1C91C8AC3B564CF9932681023D96318B87481','7554618181040B380353725762034F12591425A55C0C1507BE62D95F7D81'],['755461818135BDB0AC4DAC80C54AABD1139851AFBB01180B81','7554618181BDC0B85851B7B895DBBD4899C223308E314E762F28B381','755461818194C84AD6AA4EBE7188B041928C0A7A2275A9A89A81'],['7554618181CA65C64F260A4F69C4020CB50897AD0EBA11CB6BBEBC81','7554618181BD36023291B44D0C80DB6D013F038A56B2599A2C1381','75546181D900B35ED31E169BBF7A1F4E816AD49B53B133233AD9'],['755461818198B15FC910399CA68E9F3BABD53E0BD481','75546181814EB841C47E65686C73B54763339E424F63A769AE9281','7554618181DBA6751F8A4E9E13BE8E2106D791894EC4A62881'],['75546181D903791D3B4C99383D0F91BC41813FA269378ACB96D9','7554618181755BCAC808DB996D026945AACA2132A9D4090458052981','75546181D98527213EB77D0C4E0B0E796FCF9AC0694B14300E3F701BD9'],['7554618181CB89971E03AD6D0F5A1D66391B5D662FA8CFAF096C38115381','75546181813E742A7C1E648B766B2E23D03155A128BBC6A70A5481','75546181D9BB702E85B884437D0DD8BF46CDB47F9D7E1602CD51D9'],['7554618181977D563DA105A47B501E06BA06AD656A259F0B81','75546181D99626630F3B9D15A406272FA6441C9913A17A88C1D9','75546181814C8090A0342E3747B88A1CC2A9647106A8199A904CDB81'],['755461818150392ECF05453077C70016353159CB5A929512A281','75546181810DCA750732C68C164A3F46605A19A33C13DA010B81','75546181D9AB83611A89628A91B31DA4D444360AA0288F38D9'],['7575546181818E5EA2047B3547150041C59017B24BBA6D29331E880B3A347FC9CA179E760681','7575546181814D0CB91AD04D543FBA0E0C9AA09C263DAB629771DA3A19ACD6A7D281','7575546181D94A7BBD9F3A6B1289251A9B7BC18C95956E7679ACAAA09EA4519C82D9'],['75755461818171B27B6B49BCAB0D0C10CE5125630FA7ACA828B4C241194B79C28AAEA081','7575546181812DB96642293C6FA0906E4979B08A0D8BD253BB04BE5D70451F17D749D85981','7575546181D9208426CEC3A904BE33B33FB9C1526000584191CD046A1A1AC90709A551D7305171D9'],['7575546181D981401675424926699952905844D1003007D23A13038D2E891AA11A243AD9','757554618281D8B469A570040CC60B5AA75615ADCA772B5E61D41B9C7658CA204620472581','7575546181813D1A1678B3585AA31CD66F077D7C4791AAA929D630CB2002A638B489289181'],['757554618181231C7705CFD3643E667AD83854C5CCB19896787DAE501B4CC5D01D95CB7345AF81','75755461828130143906699374D51831DBA589020A22340A1523D8D7702962CE9B03A1A91E81','61818194A29A3EADDA552F004E239816B37338A3D56DD200729E1D76C13B1B29732E9781'],['7575546181D9BF3B38221EC4BAB26555D5839D6CB61BCD1A30CE2D2E0D6ECE9A901436BFA9D9','7575546181811C65CA714AD65F49246E2DA91E2445A946667B6F162172311F5C7D81','757554618181BFDA9A1B55D86F1614772515167F7E21B00E080DCBA9A53E87423E6381'],['757554618181AE2C62D7D94B0B57074F577502871DA35863365E654267C828B35A249DAD5E4981','757554618181986D0D8B00609168AF58A41C890ED128A4CE290036BB52327EB0C9C6493EC881','7575546181D9C955163D17060D0EA02889059E356617A518856C0461C0B4A2AC84A767D9'],['7554618181D163BA2963A6302D0AB40ACB6C01C8157F481369A2B381','75546182DB1D2F9CC32D9C4DC769722249CE1130417BC0481E878FDA76D2DB','7554618181CF4462DAC6AD106F6204463F6ACFC32FCD8C795978D1C581'],['757554618181285BB32E22963AA7BE45712FB29658AE9FC90B183EC85D93370DC53EB981','6181814EAE2499911C05B44973CBAA9351621D73BF260553687B205E36D64116CD7567C417C781','7575546182D9135E9FB80B806D8708BD556A9860029585310C463A8F1499592E016C60B80C3C1181D9'],['75546181810E179B2CCF33B0536539948CA22DB7524D5E36D6B00E81','75546181DBB6C22E29729F0075385C8B53DA037DC0117DC77136A193ADAEB49FDB','755461818116737228516148B4095189D77E313F87C44D53A69AA781'],['75546181D94FC81CBA217B9F6E81CB090E138A01B8062D7BC5DBCD36D0D9','75546181813C11360FC5350D68A942C79B54B27C6D98BF3D07D0BA289B0781','75546181D966DB85B48996230FB3184E8249259CA88D269C485FA9A296D9'],['75546181DB5182D9D108044D1A300B820F2C09772A969B1CD7C4C597325E2AB1961ADB','75546181810794CE9DA1D7BD491BD4A32BC3C64BBA6F764A0181','75546181816D99BC401453CC0CC0AD7B4654D9C62064C65CBD525AA981'],['75546181818C5799720B713D00A54413497A5A78A969BF991BB9D74E81','7554618181906DB3B01795219EBCD55749B32AD441AC1D655A0781','75546181D9A3747FA71A1232981D373F4645008255271E2EAE3CA5D9'],['75546181D9334CBF9E55A8C407A0A83F39D5AA83BFD5D1757C7ED9','75546181811B55AF3B5E93CB4B9D970BCA6E7E36D6B7AAD0465D2E9081','7554618181BCA5370A9F392A699661C4492DA7C29F485C11C2C2BCB881'],['75546181813DD6A780A81E19C010B88A0E8EAA80877DA8C52B1A8B7AD40181','75546181D93F891DCE5D03387AD2381BB37D31B7B353C9BC2E85745C3E10D9','75546181DB1B6C80AFCE024919BAD950C772939E27148D1113D19F954F11C910DB'],['757554618281D01FCE479038CE2CAC717D10A2369A5C5E254634558EDA5CA64800BD0C7160BF1581','6181815A10DAAB7057C14D9E1B4249AF649301C7609B08D016A3AF4A221F154A38328D81','6181811BCC75021F3B21AB50BC332C70BABCCB7E146702738E78963E6389B25400562D2D410A3681'],['61818152958C6A4872807D5521D843BD3A605D645F8060B78D1C9DD33D75718C99CC53CF0A38B0BB81','7575546181819F942CA07D00892DD6029B34233E6EB80E6AD9771E91571746C24A948C12696A81','6181D99F59799976820093895FBB03CA803A5088912FA92EB4D1BE0E769F580B684A14DB88B1D9'],['7575546182D96E43C7BF9A5FBC4580CB9D7FA607C06F1D36A0C00FD13F844F7474C95A0DD9','61818198381EBEA8A2745580ACDBBD56157F40435A57BD9D49A69D6202B11FCEA63D6381','618181D5265E71B2679E34802EA22A5862925FCA50D3D06672BAC96F0EA4D9BAA74AA16910599B81'],['6181813D78A2490AC65EB07EBB00B3603C67AE68C66507ABCF4302D7C6BF7EA09C2989B081','6181813F4955D56D144853C605DA4657351E992EB4B213DB186EB998B117C03E3C07CB1E81','75755461818194A29A3EADDA552F004E239816B37338A3D56DD200729E1D76C13B1B29732E9781'],['75546181818D12B4409CA8AB5860631187DB80D5C0D2B4D0BE4470529B763581','7554618181A6BB263B8E5A44C349D417377F48374EB08E9E8D81','7554618181B5030B18C97DCCB4C02C446D6C04BE7BAAAE80A7A8D6922B8B81'],['75546181810F33984A2452455AD846A3C94ACC0168A0198C81','7554618181D40B4D893C6932BDBC147896389C05D438397769AE8AB581','755461818170AD8B00B336D261A346575FD1A513D7A4337F0CAD81'],['75546181810465313E9C227047C2A830A17A679278393B760C597781','7554618181ADCF03C272BA9497D44A7C554BC73C748C4A991E115B7A4781','755461818165B707D48E6CAD3F7180C76F0AA410177D31731E40A481'],['75546181D9B78F16A8060C36248248B84E6FC4C2014022B4404ED9','75546181815E5C107D2ECC40B93655AC0AAAD6C8CE5A7A40713B15A58C81','75546181818EAA55C1D9A0457DD52046880530D2787270D159161D477481'],['75546181D9848414645A38892E7B129544C30A673DA6A6837C87C4D9','7554618181BA5C7D5124BFCE41A68B23AE8855802D1A5505BC5F186028B09E81','75546181D9B77800D0551F6103B1851FC291912220443DCFCA6980936F52D9'],['755461818142C6303C6066B5BF7812420C61243BB503D79D6C1ED37ECA8081','7554618181D23A727C61BE93B990660F42793096371BCB3D569AA844B981','755461818159236F4F7232D4560274224A2FD5136DAC6AB95E0A704381'],['7554618181D1804EDBBD66C3C76AC77557AE7925C2B5C9D04DC1B57E7A6EA10981','7554618181D0C8B97A55D66C099C56C187CA8D7FD426D80F55C7ABBE081232649481','7554618181492E733EB85A45366176A475AA2D0F8D0C0EBAB0474381'],['755461818102A83DB2397418035646B47CB746163A032D52C209C1C381','755461818180BCCD7046AF8AD1247D00C0C9B4770ED87BCBAA33B2AD772B81','7554618181C1036B22269EAF4D16C5096C795865BD2C2AAED7B75E76C9D793D681'],['7575546181814A358E2B5654C6AF6B880D47CFBA683277B10AB98D00299BA00068A48817415796A24981','7575546182812018111BD56B5217076639C57E4E498CBCA4186505268B9ED0888BA39B36CC8D81','61818136008A4ED4646ED2B11A8B1F9E45094F4CAE0F56588936C2AF0B5E032FBE383C5E74659881'],['6181D9D5CE7A33B9BA80BFA2BB3982D21A4201C07A6BADCDB926368E92279EDB7CC6694E46AF41D9','618181B180CEA924218C584995333D16CD6290D91035C875B2C16B31BC42C5DB630E0AC97287700381','61818195BA240E497D6064C280A72FD1A301CB9E2C077232A53F9BB3773D7EBB0D3E8C32A781'],['6181810F67BA7C938094CEBF4D3B4B549F13032C2201131D13711CB02692693B5D38A32EC781','618181A02535BEC159C848396A6D8993048AD1A4CB7B055C996BA1106E52481B221D5D81','618181789449A05860AFC4C034523E1EB18E5958B134D8262179CA04CA89A5A7AA6EABA847A96E81'],['6181D90E4BB6BF3FA5A566061F281058AAD89336460F37D00708678F8F76338122267F7BB8D9','6181D92F8288448ACC79A0922802A91D713DA4104BD2B8820378566A0267136C4D67A35B49D9','618181C3141664D4086F0FD764BC4126034C58A68D208B3576BFCCC9CFD5C1969F882F136309C9A581'],['6181D9A40CD1CC1B4176D2857799C9120F3BA3BD0EAD14BDA53185B541556FAC0F302455411109D9','6181DBC83C84B6789188D8359B2E99A41116038F2FB07E249A6B61921E821CB272B4093B7F1D2AB0DB','6181816500A2A491AB3E4D541191484AD09C9075D830AC9C34AC20590BD2B879639953B43497D681'],['6181819A9512416E558C71621104B39C3B17B13C13A1BCCFCCB540B9734C331D60D2321270A19481','6181815CD58E48801E569A91532147CE58769B67C17F17C8048DCD003210D36A75794E98C6A6BF8C81','618181AE6CC7BD9C7C8D655FD835463D19172C65360E096B75287FAA328DC3AD5F2C1266C73D313081'],['75546181D9A1710271CF812283422D98438F4E8F1F348F951F6F6EA15B9810D9','75546181D9CB431FA997500A5FB20AA82EC3B580A032B57127CB217359B69AD9','75546181813E3A458B5A055CB26D787CDAA26C7A01630DC179684EB17E81'],['7554618181A8B73D0E955F516C21067601C315266F501D756EA5033F773781','75546181812E5A353D8792882198236BAE0A37BD721FA70E457CB76381','75546181813A9FB4A1D035A02290C1446CA92F3109D3CAD26476B2299681'],['7575546181810208217A7916BBBD389C1EC2C2A158D9347E6EB81EB40336DB296031B125679F00030F1F177081','7575546182D9D5C18353C728BA8B8FC384B59149217E0BA77BBEBD8256D5C01D43AD3AA30CD7D9','6181814D6FA0796B4E7F4F49CB99D342B25697143E2D4598CF1B0976C02E2F6A517E0C9FA30E81'],['6181819437D3930D97AFAF5F488B0D391BCC7A52B154056CBB18D602B2B0BB8A00A37007162CB181','6181D93504089E853A7C9719481363639341394937615C2F12C524AF43CFD73432C0B864D61D6B6BD9','6181816866573DC8AF6024BE13187677BAD9C245C92471D05A871A0BD174505C497BAF57044BC4CA8981'],['757554618281063F6421BB9E9CC955547BB73D7B0A77B825512EB97414D2C847D974111029D56D12D74281','61818189DB7805474E7B3EC5C833CA28072C1D9E340D4744887F6E6091CAAD560CBBCD4790623C0181','6181D901738BAEC7147DA49F9FD6B6D17B283D898D0637B68E34AD4DD4B988C43332357BD8AD0DC88097D9'],['7575546181DB229521B36477038791B0756224B07A85147A5788C8087647B21C5E7C284ECBD6CD06629BD007DB','6181D91B4B2222B4606FB8B39BB8902375D4BF6B434F825BB62058B125807D38C08EC29996CA8D838FD9','6181816AB2AE2E7839D69B18CB5F6D9601AC7E3B16DB3A9F902278C2399AD40BB21240000D29BF81'],['75546181D9A08585325B62B22893C61A37658767772D911849668710AB76C3ABD9','75546182817BD043C0109DA7112AC83A0E598A427C7E989D7B8B1A64A74281','75546181DB972F9C62A62699C04F7C3CAED2AA7E57A921CA1B8F1E6D57D925B2ABDB'],['6181DB628D58AB076DB1247A6C57D76F1258257C1C2093B73573006FC557467784864E3C1D03898121DB','6181D9B87F7B6D1276B1A6203C56A93AC8098AD01E6E0A875A8C39832E388BC0AA6F91AB3809D9','6181812A5E7B60146CD68965BD918DD9348C5C45BC365C249D67329A205AA402CA0D7B28A3D76DAB4E81']];
+
+sub character {
+	my ($c) = @_;
+	if ($c > 255) { return ''; }
+	my $p = $codes->[$c]->[int(rand(@{$codes->[$c]}))];
+	my $r = '';
+	for (my $i = 0; $i < length($p); $i += 2) {
+		my $j = hex(substr($p, $i, 2));
+		$r .= $words->[$j] . ' ';
+	}
+	return $r;
+}
+
+sub ppencode {
+	my ($text) = @_;
+	my $r = "";
+	for (my $i = 0; $i < length($text); $i++) {
+		my $code = character(ord(substr($text, $i, 1)));
+		if ($code ne '') {
+			$r .= 'and print chr ' . $code;
+		}
+	}
+	return $r;
+}
+
+print "#!/usr/bin/perl\n";
+print character(int(rand(10))+1);
+while (my $line = <>) {
+	print ppencode($line);
+}
+print "\n";
+
+1;
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.