Source code on github, but most of the work is gone by this Perl script