@a = (1, 1);push @a, ($a[$#a-1]+$a[$#a]) for 1..22;
@st = (x4A,x75,x73,x74,x20,x41,x6E,x6F,x74,x68,x65,
x72,x20,x50,x65,x72,x6C,x20,x48,x61,x63,x6B,x65,x72
);my $i = 0;for (0 .. $#a){$re = hex($st[$i++]);push 
(@hexarray,$re);}foreach $lrlr (@hexarray){$ctr = 
chr($lrlr);print "$ctr";}


---------------------------------------------------


@_ =(7401,1172,1152,1162,3201,6501,1102,1112,1162,
1042,1012,1142,3201,8001,1012,1142,1082,3201,7201,
9701,9901,1072,1012,1142);foreach$__(@_){$e=$__/1000;
$r=substr("$e",0,4);$r_r = substr ("$e",4,5);$o_o=
"0000e+0";$st = $r . $o_o . $r_r;printf chr($st);}