Select Code to Download

#!/bin/perl -w

...
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)); }