I'm not sure there's a clean way to do this reliably. Parsing Perl is tricky.

However, if you're willing to consider a function wrapper, Hook::LexWrap may give you some ideas. Attach a POST handler to the function.