perl脚本：cds序列转换为pep