You might use Aspect to provide "advice" for each affected subroutine with a name that matches a given regex, or Attribute::Handlers to provide the proper lexwrap around your subroutine invocation on a case-by-case basis.

Either way, you can write the code once, and reuse it many times, applying it to all the subroutines of relevance.