Depending on what you're doing, Hook::LexWrap might actually do what you need.

Excellent suggestion, I'll take a look. And I will await that copy of TPJ with bated breath. :-)