This is possibly the ugliest code I have ever seen.

Lucky. The best part is when it looks like that but is spread across 10 modules, 5 eval'd scripts, a customized environment without documentation running under Registry, and lots of Perl 4 style.