I was trying to fight spam this holiday and ended up doing it by creating regular expressions with a genetic twist. Being the kind sort that I am I've abstracted a little and produced a base class for anyone who might want to do something simillar. Enter Genetics::Gene::Sequence from the wings.
This won't do anything for you, not yet, to be useful you need to override a couple of methods, but that's hopefully explained in the pod.
But why seek wisdom? If anyone has the time, I'd appreciate feedback, is the interface good? Have I missed some sensible method? Whatever. The module is available at This link and has some simple examples of its use included. I intend to CPAN this in a little while, as there isn't anything simillar.