Here is my first Japh. Since I am a truely un-orignial schmo, I just played around with math. Let me know what you think.
Thanks, Kristofer

#!/bin/perl -w

use strict;

a("1141011070990971040321081141010800321141011041161111100970321161151
+17074");
sub a { a(substr($_[(0*0+(6-2/2+(5*1))*0)],((5*2)-7)))if(substr($_[5+(
+-5)],3));
 print chr(substr($_[(0*0+(6-2/2+(5*1))*0)],0, (1*(3+(5-2)))-3)); }
[download]

Update: Added back use strict; just for posterity