Well, i have no idea about perl (a little), but have just talked with Anarion about this code and he explained it to me and i think that's a good code, original. The objective of this code is not be illegible but be original, and i think that's it.