http://www.perlmonks.org?node_id=499500


in reply to Spaghetti code...

...is a challenge!