Regex File Renamer is a Mac OS X automator action that I wrote in 2007. It renames files using Perl regular expressions.

Here's a screenshot: