grinder's Regexp::Assemble is an alternative to Regex::PreSuf. Please see Why machine-generated solutions will never cease to amaze me and grinder's scratchpad for more on this remarkable module.

HTH,