This is my first attempt at making true obfuscated code (but according to my friends, I do that every day)...

@a=("237861178511787117847",
"41178101784017861178111780117856",
"2378801784117810178087823",
"967876785678547823784117810178701789978797827");
reverse(@a);foreach(@a){($a[$a]=(reverse($a[$a])))
;for(split(/(87)/,$a[$a])){unless($_==(87)){
(($print.=chr($_)))};}$a=$a+1;};reverse;$a=
@a[$a]+$a;print$print;
[download]