i copped out a bit using #comment synax, but it all works coz of some lines that don't use this :D

update - i'll write a bigger one after my exams that will try and not have ANY '#' comments in it at all... i know it's a tall feet, but i shall use this idea of mine for something more complex! o(o_o)o i did rush this one coz i was tired, and don't like leaving things...next time gadget!! ehhehehe

package esu; #               # ;use egakcap

use strict;                     ;tcirts esu
;                                         ;
sub                                     bus
{;          "JAPH/n"; ;"\nHPAJ"          ;}

;sub tcirts {}       #       {} strict bus;
;sub strict  {               }  tcirts bus;
;sub nruter         {"}         return bus;
                   {;";}
$_  = &nruter;    #     #   ; return& =  _$

$_  = substr $_,9,11;#;11,9,_$ trsbus =  _$
sub  lave {eval($_);###;(_$)lave} eval  bus
}#{}#{}#{}#{}#{}#{}#{#}#{}#{}#{}#{}#{}#{}#{
                  #     #
                 #       #
print &mirror(&lave);#;(eval&)rorrim& tnirp

#next line is not mirrrim ton si enil txen#
#ored coz i gave up ehe pu evag i zoc dero#

sub mirror{split//,$_[0];return reverse @_}
[download]

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
i would slit my wrists for you