
computer/programs/useless/japh/japh_1
$_=q^#ba':;Dy{rw}<+2~|}+? +<jwx}@n{<Yn{u<Qjltn{ew+' ;%+.+i0r3>rd]#&<-9+ge^,y; #ba@]!0>mk%32iv[f^*!7z?<; $_=q(Thomas Schoch 2005); ;;;;;;; eval,eval ;;;;;;;
This Perl program prints
Download the source. |
$_ is assigned a string. |