Wrote a perl version. Got stuck on one method though, which sucks. But 75 lines of code in a script not as intrusive as a source modification and new field in zone. Both are totally doable as options though!
http://www.eqemulator.net/forums/showthread.php?t=29697