RETAS-Logo
RETAS-Logo
This page is not mobile friendly.
Better watch on bigger screen.

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
"Just another Perl Hacker".
(More about JAPHs.)

Download the source.