This comment might be a bit late, but anyway... coincidentally, I read yesterday an example in perlretut, which addresses precisely this question. The final solution is the same as presented in the FAQ, by the way.