Perl script that guesses text encoding of Chinese text (and detects simplified or traditional Chinese)