![[info]](http://l-stat.livejournal.com/img/userinfo.gif){kind=small}
JAPH
not exp log srand xor s qq qx xor s x x length uc ord and print chr ord for qw q join use sub tied qx xor eval xor print qq q q xor int eval lc q m cos and print chr ord for qw y abs ne open tied hex exp ref y m xor scalar srand print qq q q xor int eval lc qq y sqrt cos and print chr ord for qw x printf each return local x y or print qq s s and eval q s undef or oct xor time xor ref print chr int ord lc foreach qw y hex alarm chdir kill exec return y s gt sin sort split
Здавалося б, нісенітниця якась, але насправді це робоча програма на perl і результат виконання аналогічний результату іншої програми на perl:
print "just another perl hacker\n";
#upd 1.0
1 @tam_sce_je=( 2 "http://ru.wikipedia.org/wiki/JAPH", 3 "http://www.cpan.org/misc/japh", 4 "http://www.ibm.com/developerworks/linux/library/l-japh.html" 5 );