I'm pretty sure that that node would constitute Cruel and Unusual Punishment for the perl interpreter ... nevermind any maintenance personnel that has to try to decipher it six months from now... :-)

*boggle*

(Oh, and ++thanks for pointing out how to do that.)