You could always try out Regexp::Debugger.
Update: Corrected module name
--MidLifeXis
In reply to Re: RegExp substitution by MidLifeXis in thread RegExp substitution by Keystone