
computer/programs/useless/japh/japh_3
[60],$_
=do{ $_
=q{}.$_
[40].$_
{ a}.$_
{w }.$_
[38].$_
{ t}.$_
{r }.$_
[18].$_
{ e}.$_
[14].$_
{i }.$_
[ 9].$_
[22].$_
[14].$_
{i }.$_
{ d}.$_
[9 ].$_
{ e}.$_
[38].$_
{k }.$_
[36].$_
[14].$_
{ i},s
^H^h^^y^p^P^d^print
"\x4au$_\n"}if%
_=@_=split//
=>reverse
q>stack
>.q
;
print "Hello, world!\n";
|
This Perl program prints
Download the source. |