(R)?ex looks like a pretty nifty open source tool written in Perl. Just heard about it recently but it looks like a pretty active project... http://www.rexify.org/