grep.perl 增加 去注释功能