Thought I'd plug one of my nodes, Deriving Regular Expressions, from a while back. It might be of interest. I wasn't aware of Regex::PreSuf at the time, that seems worth using as a springboard as bart suggested.

Matt