Well Here it is. comments welcome. Ah, and you need to using perl 5 in order for this to work. HINT.

@y=split qq,\x20,,q;Another Hacker Perl Just;;
$y[$]-4]=$y[$]/5]^$y[$%];$y[$%]=$y[$%]^$y[3];
$y[3]=$y[$%*5/3]^$y[3];$y[$%]=$y[$%]^$y[3];$y[
3]=$y[$]*1/5]^$y[3];$y[$]/5]=$y[$]/5]^$y[3];
print join qq:$":, @y;
[download]