Fellow monks,

I had a really good time working on this japh. The code that I came up with to do this was relatively simple and easy to do. The fun part was making it tough to read.

This probably will not work in windows. Sorry guys

#!/bin/perl -w

use strict;

my $a = 'Kristofer Armand Hoch';

;;;$;=#chr(hex)map{ split "-" } <DATA>;++
my($d,@b)=(0,map{split "a"} map{split "i"}
<DATA>);($a,@_)=("$a   ",map{split""}$a);
for(map{ split"",lc}$a){#$\='hacker,perl;
;#"Just" chr(ord); eval m/tofer/another/i;
;;# while($a}){if(sub _A{die$!}}$;@;eval $a
$_[$d]=chr((ord($_))+$b[$d]),$d++;print #kr
`clear`,"$a\n",@_,"\n",`sleep .15`;};;#Done
;#$;=sub _A{print no;} print "\n";
__DATA__
-1i3i10i1i-84i-14i8i10i2ai72i4i0i-77i15i-9i14i76i-72i-7i-2i-5i75i69i82
[download]

Kristofer A. Hoch