improved perl cheat