My attempts at making Perl JAPHs
Несколько JAPH моего производства. О том что это такое и для чего нужно можно прочесть в Википедии.
От простого до чуть посложнее:
#!/usr/bin/perl
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;print chr $,;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;print chr $,;print chr $,-2;
print chr $,-1;$,=0; $,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;print chr $,;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
print chr $,;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;print chr $,;$,+=()=//;print chr $,;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;print chr $,;print chr $,-12;print chr $,-15;print chr $,-2;$,=0;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;print chr $,;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;print chr $,;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;print chr $,;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;print chr $,;print chr $,-6;$,=0;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;print chr $,;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;print chr $,;print chr $,-7;print chr $,-5;
$,+=()=//;$,+=()=//;$,+=()=//;print chr $,;print chr $,-6;$,+=()=//;$,+=()=//;$,+=()=//;$,+=()=//;
$,+=()=//;$,+=()=//;$,+=()=//;print chr $,;
Та же идея, но другая начинка:
#!/usr/bin/perl
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;print chr $x;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;print chr $x;print chr $x-2;
print chr $x-1;$x=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;print chr $x;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;print chr $x;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;print chr $x;print chr $x+1;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;print chr $x;$x=0;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;print chr $x;print chr $x-3;print chr $x+10;$x=0;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;print chr $x;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;print chr $x;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;print chr $x;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;print chr $x;print chr $x-6;$x=0;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;print chr $x;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;print chr $x;print chr $x-7;print chr $x-5;
$x+=eval print;$x+=eval print;$x+=eval print;print chr $x;print chr $x-6;$x+=eval print;$x+=eval print;$x+=eval print;
$x+=eval print;$x+=eval print;$x+=eval print;$x+=eval print;print chr $x;
Это все громоздко и страшновато, поэтому напоследок кое-что покороче, для щекотания нервов:
#!/usr/bin/perl
my$h=0;print map{chr($_+ord(substr("perl"x6,$h++,1))-80)}<DATA>=~/../g;__DATA__
429681880076768384836786005967867611706967866786
С новым годом и хорошего кодинга.