I saw something similar in perl years ago. I can't seem to locate it now though so maybe I'm imagining things.