grep.perl add invent and chinese support