$_=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.
The string is modified by $_=':;Dy{rw})+S~|}+5 +)jwx}qn{)Yn{u)Qjltn{ew+' ;s+.+chr ord($&)-9+ge |