> perl -MHTML::Entities=decode_entities -e "print length decode_entities('社論')"
2