I wrote a Perl script that uses most of the rules

Would you mind sharing that part of the script? I use a perl script for tagging my mp3s as well and that would be a useful addition.

-Mike