home computer programs useful useless secunet_contest entry_1 entry_2 entry_3 entry_4 entry_5 entry_6 japh japh_1 japh_2 japh_3 japh_4 japh_5 piet hello_world_1 hello_world_2 Piet misc pi polyglot game_of_life
$_=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 "Just another Perl Hacker". (More about JAPHs.)
Download the source.
next
$_ is assigned a string.