Thanks for that.
I haven't really dealt with Perl or something like this before, so think it is well beyond me.
Is this something you would be interested in, to take as a job (paid).
The files can be downloaded at: http://odur.let.rug.nl/vannoord/TextCat/
under the link: sources. It is a free and shared script.