#!/usr/bin/perl
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
# Just another Perl hacker # Kurz: JAPH # Populär durch Randal L. Schwartz # Schwartz hängte an viele seiner Postings zur Usenet news- # group comp.lang.perl als Signatur obskure Perl-Programme an, # die Just another Perl hacker ausgaben