my @neighbors=
(undef,[undef,[[1,2],[2,1],[2,2]],[[1,1],[1,3],[2,1],[2,2],[2,3]],[[1,
2],[1,4],[2,2],[2,3],[2,4]],[[1,3],[2,3],[2,4]]],[undef,[[1,1],[1,2],[
2,2],[3,1],[3,2]],[[1,1],[1,2],[1,3],[2,1],[2,3],[3,1],[3,2],[3,3]],[[
1,2],[1,3],[1,4],[2,2],[2,4],[3,2],[3,3],[3,4]],[[1,3],[1,4],[2,3],[3,
3],[3,4]]],[undef,[[2,1],[2,2],[3,2],[4,1],[4,2]],[[2,1],[2,2],[2,3],[
3,1],[3,3],[4,1],[4,2],[4,3]],[[2,2],[2,3],[2,4],[3,2],[3,4],[4,2],[4,
3],[4,4]],[[2,3],[2,4],[3,3],[4,3],[4,4]]],[undef,[[3,1],[3,2],[4,2]],
[[3,1],[3,2],[3,3],[4,1],[4,3]],[[3,2],[3,3],[3,4],[4,2],[4,4]],[[3,3]
---------------------------------
iane
nvpo
oire
ewlg
---------------------------------
for my $line (1..4) { 
  chop(my $row = <>);
  my @row = split //, $row;
  $has.=$row;
  push @{$where{ $row[$_] }}, [$line, $_] for 1..4;
}
---------------------------------
while (<>) {
    chomp;
    next unless /^[$has]{3,9}$/o;
    my @stuff = split //, (my $word=$_);
---------------------------------
    for (@{$where{shift @stuff}}) {
         print $word 
           if path($_, { $_->[0] . $_->[1] => 1 }, @stuff);
    }
---------------------------------
sub path {
    my ($pos, $history, @left) = @_;
    my @neigh = @{ $neighbors[ $pos->[0] ][ $pos->[1] ] };
    for my $newpos (@{ $where{ shift @left } }) {
        next if (!scalar grep { $newpos->[0] =  = $_->[0] &&
                                $newpos->[1] =  = $_->[1] } @neigh)
             || $history->{ $newpos->[0] . $newpos->[1] }++;
        return !@left || path($newpos, $history, @left);
    }
}
---------------------------------
#!/usr/bin/perl -l
my@n=
(undef,[undef,[[1,2],[2,1],[2,2]],[[1,1],[1,3],[2,1],[2,2],[2,3]],[[1,
2],[1,4],[2,2],[2,3],[2,4]],[[1,3],[2,3],[2,4]]],[undef,[[1,1],[1,2],[
2,2],[3,1],[3,2]],[[1,1],[1,2],[1,3],[2,1],[2,3],[3,1],[3,2],[3,3]],[[
1,2],[1,3],[1,4],[2,2],[2,4],[3,2],[3,3],[3,4]],[[1,3],[1,4],[2,3],[3,
3],[3,4]]],[undef,[[2,1],[2,2],[3,2],[4,1],[4,2]],[[2,1],[2,2],[2,3],[
3,1],[3,3],[4,1],[4,2],[4,3]],[[2,2],[2,3],[2,4],[3,2],[3,4],[4,2],[4,
3],[4,4]],[[2,3],[2,4],[3,3],[4,3],[4,4]]],[undef,[[3,1],[3,2],[4,2]],
[[3,1],[3,2],[3,3],[4,1],[4,3]],[[3,2],[3,3],[3,4],[4,2],[4,4]],[[3,3]
,[3,4],[4,3]]]);
for my $l(1..4){chop(my $r = <>); my @r = split //, $r; $h.=$r;
push @{$w{$r[$_] }}, [$l, $_] for 1..4;}
while (<>) {chomp; next unless /^[$h]{3,9}$/o; my @s = split //, (my
$w=$_);p($_,{$_->[0].$_->[1] => 1},@s) and print $w for @{$w{shift @s}};}
sub p { my ($p, $h, @l) = @_; my @n2 = @{$n[$p->[0]][$p->[1]]};for my
$n (@{$w{shift @l}}) {
    next if (!scalar grep {$n->[0]=  =$_->[0]&&$n->[1]=  =$_->[1]} @n2)
||$h->{$n->[0].$n->[1]}++; return !@l||p($n,$h,@l);}}
---------------------------------
my@n=(0,[0,[[2,2],[2,1],[1,2]],[[2,3],[2,2],[2,1],[1,3]
,[1,1]],[[2,4],[2,3],[2,2],[1,4],[1,2]],[[2,4],[2,3],[1
,3]]],[0,[[3,2],[3,1],[2,2],[1,2],[1,1],[1,2]],[[3,3],[
3,2],[3,1],[2,3],[2,1],[1,3],[1,2],[1,3]],[[3,4],[3,3],
[3,2],[2,4],[2,2],[1,4],[1,3],[1,2]],[[3,4],[3,3],[2,3]
,[1,4]]],[0,[[4,2],[4,1],[3,2],[2,2],[2,1],[2,2]],[[4,3
],[4,2],[4,1],[3,3],[3,1],[2,3],[2,2],[2,3]],[[4,4],[4,
3],[4,2],[3,4],[3,2],[2,4],[2,3],[2,4]],[[4,4],[4,3],[3
,3],[2,4]]],[0,[[4,2],[3,2],[3,1],[3,2]],[[4,3],[4,1],[
3,3],[3,2],[3,3]],[[4,4],[4,2],[3,4],[3,3],[3,4]],[[4,3
],[3,4]]]);my@b=[  ];my($h,%w);for my $l(0,1,2,3){chop(my
$r=<>);my@r=split//,$r;push@b,[0,@r];push@{$w{$r[$_]}},
[$l,$_]for 1..4;$h.=$r}while (<>){/^[$h]{3,9}$/o||next;
chomp;my@s=split//,(my$w=$_);p($_,{$_->[0].$_->[1]=>1},
@s)&&print$w."\n"for@{$w{shift@s}}}sub p{my($p,$h,@l)=@
_;my@z=@{$n[$p->[0]][$p->[1]]};for my$n(@{$w{shift@l}})
{next if(!scalar grep{$n->[0]=  =$_->[0]&&$n->[1]=  =$_->[1
]}@z)||$h->{$n->[0].$n->[1]}++;return!@l||p($n,$h,@l)}}
---------------------------------
syntax error at boggle.pl.old line 14, near "5{"
Unrecognized character \x02 at boggle.pl.old line 14.
---------------------------------
#!/usr/bin/perl -s
$;=$/;seek+DATA,undef$/,!$s;$_=<DATA>;$s&&print||(*{q;::\;
;}=sub{$d=$d-1?$d:$0;s;';\t#$d#;,$_})&&$g&&do{$y=($x||=20)*($y||8);sub
i{sleep&f}sub'p{print$;x$=,join$;,$b=~/.{$x}/g,$;}sub'f{pop||1}sub'n{substr($b,
&f%$y,3)=~tr,O,O,}sub'g{@_[~~@_]=@_;--($f=&f);$m=substr($b,&f,1);($w,$w,$m,O)
[n($f-$x)+n($x+$f)-(${m}eq+O=>)+n$f]||$w}$w="\40";$b=join'',@ARGV?<>:$_,$w
x$y;$b=~s).)$&=~/\w/?O:$w)gse;substr($b,$y)=q++;$g='$i=0;$i?$b:$c=$b;
substr+$c,$i,1,g$i;$g=~s?\d+?($&+1)%$y?e;$i-$y+1?eval$g:do{$b=$c;p;i}';
sub'e{eval$g;&e};e}||eval||die+No.$;
_ _DATA_ _
$d&&do{{$^W=$|;*_=sub{$=+s=#([A-z])(.*)#=#$+$1#=g}}
@s=(q[$_=sprintf+pop@s,@s],";\n"->($_=q[
$d&&do{{$^W=$|;*_=sub{$=+s=#([A-z])(.*)#=#$+$1#=g}}'
@s=(q[%s],q[%s])x2;%s;print"\n"x&_,$_;i;eval};
]))x2;$_=sprintf+pop@s,@s;print"\n"x&_,$_;i;eval};$/=$y;$"=",";print
q<#!/usr/bin/perl -sw
!$s?{do{>.($_=<>).q<}:do{@s=(q[printf+pop@s,@s],q[#!/usr/bin/perl -sw
!$s?{do{>.(s$%$%%$g,y=[=  =  =  =y=]=  =||&d,$_).q<}:do{@s=(q[%s],q[%s])x2;%s}
])x2;printf+pop@s,@s}
>
---------------------------------
% selfgol -g           # graj w ewolucyjn Gr w ycie
% selfgol -s           # reprodukuj si        
% selfgol -d           # wywietlaj baner
% selfgol -f script.pl # konwertuj skrypt script.pl na swoje podobiestwo
---------------------------------
@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
---------------------------------
% perl -MO=Deparse mjd-japh

@P = split(??, '.URRUUxR', 0);
@d = split(??, "\nrekcah xinU / lreP rehtona tsuJ", 0);
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/xi ? $P : close *$_;} keys %p;
}
p ;
p ;
p ;
p ;
p ;
map {close *$_ if $p{$_} =~ /^[P.]/;} %p;
wait until $?;
map {<$_> if /^r/;} %p;
$_ = $d[$q];
sleep rand 2 if /\S/;
print $_;
---------------------------------
% perl -MO=Deparse,-p mjd-japh
...

    (($q *= 2) += ($f = (!fork)));
    map({($P = $P[($f | (ord($p{$_}) & 6))]);

..
---------------------------------
Just another Perl hacker,
---------------------------------
print "Just another Perl hacker,\n";
---------------------------------
print join" ", (sort(qw(another Just Perl hacker,)))[0,2,1,3];
---------------------------------
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
BEGIN {% % = ($ _ = " " => print "Just another Perl Hacker\n")}
---------------------------------
$_ = 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;}
---------------------------------
eval {die [[qq [Just another Perl Hacker]]]};; print
${${${@}}[$#{@{${@}}}]}[$#{${@{${@}}}[$#{@{${@}}}]}]
---------------------------------
BEGIN {$^H {q} = sub {$_ [1] =~ y/S-ZA-IK-O/q-tc-fe-m/d; $_ [1]}; $^H= 0x28100}
print "Just another PYTHON hacker\n";
---------------------------------
tie $" => A; $, = " "; $\ = "\n"; @a = ("") x 2; print map {"@a"} 1 .. 4;
sub A::TIESCALAR {bless \my $A => A} #  Kolejny zwariowany JAPH Abigail
sub A::FETCH     {@q = qw /Just Another Perl Hacker/ unless @q; shift @q}
---------------------------------
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";
---------------------------------
$A++;
---------------------------------
y ccccd x s vvchr oct oct ord uc ave x s vvucve le
s vvuc ave x s vvchr oct oct oct ord uc bve x eval
---------------------------------
perl -e '$a=$b=1; while (1) {$c= $a+$b; print $c,"\n"; $a=$b; $b=$c; }'
---------------------------------
perl -le '$a=$b=1;while(1){$c=$a+$b;print$c;$a=$b;$b=$c;}'
---------------------------------
perl -le '$a=$b=1;while(print$c=$a+$b){$a=$b;$b=$c;}'
---------------------------------
perl -le '$b=1;while(print$a+$b){($a,$b)=($b,$a+$b)}'
---------------------------------
perl -le '$b=1;while(1){$a+=$b;print$a;$b+=$a;print$b}'
---------------------------------
perl -le '$b=1;while(1){print$a+=$b;print$b+=$a}'
---------------------------------
perl -le '$b=1;print$a+=$b while print$b+=$a'
---------------------------------
perl -le 'print$a+=$b while print$b+=$a||1'
---------------------------------
perl -le 'print$a+=$}while print$}+=$a||1'
---------------------------------
perl -nle '$count++; END{print $count}'
---------------------------------
perl -nle 'END{print $.}'
---------------------------------
perl -wlpe '}{$_=$.'
---------------------------------
perl -le '(1x shift)=~/^1?$|^(11+?)\1+$/||print"Pierwsza"'
---------------------------------
print STDOUT q
Just another Perl hacker,
unless $spring
---------------------------------
for(long => time) {$early && $self->went($bed);} 
rand time && do { 
    while ($candle--) { 
        (time => $eyes->shut(  )) < (time => print "Falling asleep!")
    }
};
---------------------------------
 use Bleach;
for my $i (1..10) {
    print "Halo! $i\n";
}

---------------------------------
use Bleach;




---------------------------------
my $tie = " \t"x8;
sub whiten { local $_ = unpack "b*", pop; tr/01/ \t/; s/(.{9})/$1\n/g; $tie.$_ }
sub brighten { local $_ = pop; s/^$tie|[^ \t]//g; tr/ \t/01/; pack "b*", $_ }
sub dirty { $_[0] =~ /\S/ }
sub dress { $_[0] =~ /^$tie/ }
open 0 or print "Nie da rady rebleach'$0'\n" and exit;
(my $shirt = join "", <0>) =~ s/.*^\s*use\s+Acme::Bleach\s*;\n//sm;
local $SIG{_ _WARN_ _} = \&dirty;
do {eval brighten $shirt; exit} unless dirty $shirt && not dress $shirt;
open 0, ">$0" or print "Nie da rady bleach '$0'\n" and exit;
print {0} "use Acme::Bleach;\n", whiten $shirt and exit;
---------------------------------
print "hello world\n";
---------------------------------
perl -MAcme::EyeDrops=sightly -e 'print sightly("helloworld.pl")'

eval eval
'"'.('['^'+').('['^')').('`'|')').('`'|'.').('['^'/').('{'^'[').'\\'.'"'.
('`'|'(').('`'|'%').('`'|',').('`'|',').('`'|'/').('{'^'[').('['^',').('`'
|'/').('['^')').('`'|',').('`'|'$').'\\'.'\\'.('`'|'.').'\\'.'"'.';'.('!'^
'+').'"'
---------------------------------
eval eval '"'.
                    ('['^'+').("\["^
                 ')').("\`"| ')').('`'
               |'.').('['^'/' ).('{'^'[')
              .'\\'.'"'.("\`"| '(').(('`')|
            '%').('`'|(',')).( '`'|',').('`'
          |'/').('{'^'[').('['^ ',').('`'|'/'
         ).('['^')').('`'|',').( '`'|'$').'\\'
        .'\\'.('`'|'.').'\\'.'"' .';'.('!'^'+')
       .'"';$:='.'^'~';$~='@'|'(' ;$^=')'^'[';$/
      ='`'|'.';$_='('^'}';$,='`'| '!';$\=')'^'}';
     $:='.'^'~';$~=('@')|     '(' ;$^     =')'^'['
     ;$/='`'|'.';$_='('                    ^'}';$,
    ='`'|'!';$\=(')')^                      '}';$:=
    '.'^'~';$~='@'|'('                       ;($^)=
   ')'^'[';$/='`'|'.';                       $_='('
   ^'}';$,='`'|'!';$\=                        "\)"^
  '}';$:='.'^"\~";$~= (                       '@')
  |'(';$^=')'^'[';$/  =                        '`'
  |'.';$_='('^'}';$,  =                        ((
  '`'))|'!';$\="\)"^  (                        ((
  '}')));$:='.'^'~'; (   ( ( (          (   (  (
  $~)))))))='@'|"\("; (        (      (        (     (
  $^)))))=')'^'[';$/    ='`'|            '.'  ;      (
(   $_))='('^'}';$,    ='`'|'!'         ;($\) =     (
  (  ')'))^'}';$:                             =    (
    '.')^"\~";                      (          $~)
     =  '@'                         |          (
     (                              (          (
     (                              (          (
      (    (                                   (
       ( ( (                   (     (  (      (
           (                  (      (  (      (
           (                  (      (  (
           (                                  (
        (   (
        (    (                   '('))))))   )
        )     )             )))))))))))))
        )      )               ))))))))     ;
        (       (                 $^))=')'^'[';
        #         ;           #                 ;
        #             ;     #                    ;
         #                ;                       #
                         ;          #  ;  #        ;
          #                     ;
                        #                           ;
                             #                       ;
                       #    ;                         #
                           ;                           #
---------------------------------
package Filter::Rot13;

use Filter::Simple;
FILTER { tr[a-z][n-za-m]; }
---------------------------------
Hello World Souffle.

This recipe prints the immortal words "Hello world!", in a basically
brute force way. It also makes a lot of food for one person.

Ingredients.
72 g haricot beans
101 eggs
108 g lard
111 cups oil
32 zucchinis
119 ml water
114 g red salmon
100 g dijon mustard
33 potatoes

Method.  

Put potatoes into the mixing bowl. Put dijon mustard into the mixing
bowl. Put lard into the mixing bowl. Put red salmon into the mixing
bowl. Put oil into the mixing bowl. Put water into the mixing
bowl. Put zucchinis into the mixing bowl. Put oil into the mixing
bowl. Put lard into the mixing bowl. Put lard into the mixing
bowl. Put eggs into the mixing bowl. Put haricot beans into the mixing
bowl. Liquify contents of the mixing bowl. Pour contents of the mixing
bowl into the baking dish.

Serves 1.
---------------------------------
