用perl实现生物突变的随机模拟程序代码

程序文件：test.pl

结果如下：
    f:\>perl\test.pl 
    mutate 
    aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
    here is the original dna: 
    aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

    here is the mutant dna: 

    aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaataaaaaaaaaaaaaaa 

    here are 10 more successive mutations: 
    acaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaataaaaaaaaaaaaaaa 

    acaaaaaaaaacaaaaaaaaaaaaaaaaaaaaaaaaaaaaataaaaaaaaaaaaaaa 

    acaaaaaaaaacaaaaaaaaaaaaataaaaaaaaaaaaaaataaaaaaaaaaaaaaa 

    acaaaaaaaaacaaaaaaaaaaaaataaaaaaaaaaaaaaataaaaaaaaaaaaaaa 

    acaaaaaaaaacaaaaaaaaaaaaataaaaaaaaaaaaaaataaaaaaaaaaaaaaa 

    acaaaaaaaaacaaaaaaaaaaaaataaaaaaaaaaaaaaatgaaaaaaaaaaaaaa 

    actaaaaaaaacaaaaaaaaaaaaataaaaaaaaaaaaaaatgaaaaaaaaaaaaaa 

    actaaaaaaaacaaaaaaaaaaaaataagaaaaaaaaaaaatgaaaaaaaaaaaaaa 

    actaaaaaaaacaaaaaaaaaaaaataagaaaaaaaaaaaatgtaaaaaaaaaaaaa 

    actaaaaaaaacaaaaaaaaaaaaataagaaaaaaaaaaaatgtaaaaaaaaaaaaa

    f:\>