This code actually manages to do something quite useful, if you give it 2 numbers as arguments (hint !).

It's really my 1st attempt... I hope to get better in the future, though I hope you'll enjoy deciphering this one.

@/=reverse split//,"74100400751046107510741046106410151005103610"; @\=
+split//,"greek";foreach(0..4){$m=$_;@\[$_]=chr oct@/[$_*4].@/[$_*4+1]
+.@/[$_*4+2].@/[$_*4+3]}$,=eval eval join'',@\;;$/;;$/=eval join'',@\;
+@\=split//,"greek";foreach(0..5){$m++;@\[$_]=chr oct@/[$m*4].@/[$m*4+
+1].
@/[$m*4+2].@/[$m*4+3]}@\[++$m]='r';;;gr:;;die"$,\n"if(!$/);$_=$,;$,=$/
+;$n=$/-$,;$/=$_%$/;eval eval join'',@\;
[download]