Update: Added back use strict; just for posterity#!/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)); }
In reply to My First JaPH by krisahoch
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |