Have you looked at Tie::Hash::NamedCapture?

Yes, I have. It's a stub with one trivial function. The magic lives in XS and in the Regex core somewhere.