You could turn on perl evaluation inside of the template. This would let you inline small chunks of perl code within the template. I generally try to write around doing things like that (for personal style issues mostly) but there's nothing really wrong with it.

You could also have the perl function eval the argument that is passed to it. Generate the string of perl foo and pass that to a function similar to ContextString in my above example and have it get eval'ed