"LREP"4(v
v       <
                > a"detcelfeR" >:#,_@
> 0 '" "ih" '" #^ E >:#,_ v
v                         <

> 0 "5+1" I. a, >:#,_ v
                      >                     v

v "$x=" "' "Hello world!\n" "' "; print $x"0<
   > a"detcelfeR" >:#,_@
> #^ E >:#,_ a,    v
v "'"x""'" x 5934"n<
> #v E a2*3+y1-.a, @
   > na".detcelfer E :DAB">:#,_@

This program should print:
hi6
Hello world!
1
5934