#!/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