Something like this maybe? https://www.perl.com/pub/2005/06/23/sprog.html