This Perl script is absolutely horrific, but was quite fun to write. The
comments explaining how it works are considerably longer than the
implementation(!)