[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. |