i think i'm improving.. well.. i hope so anyway! ;-)

use strict;$_=+"2103";//
;split//;//;;my@japh=@_;
my$a="PA";$_="AP";s>AP||
\<\>u_\\>JH>||eval"|";$a
.=$_;split//,$a;$a="\"";
for(@japh){ $a.=@_[$_];}
$a=""||$a.="\"";sub ohm{
$_=+"ohms";my$a^="\r\r";
s"o||oq"oq"||ohm("\oq");
split//;for(@_){;$_=chr(
ord($_)+1);$a.=$_}return
$a;}-eval&ohm.$a||undef;
[download]

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