in reply to Cryptogram Solver

Here's some source code (in C++) that solves simple substitution cyphers. The algorithm should be easy enough to adapt to perl. solver.C