$ echo ">gi|209483500:3405-4275 [Homo sapiens] gene X, complete
ATACCCATGGCCAACCTCCTACTCCTCATTGTACCCATTCTAATCGCAATGGCATTCCTAATGCTT

>gi|209483501:3307-4262 [Pan paniscus] gene X, complete
AACGAAAAATTCTAGGCTATATACAACTACGCAAAGGCCCCAACGTTGTAGGCCCCTACGGGCTACTACA

>gi|209483502:3600-4187 [Mus musculus] gene X, complete
TAAACACCCTCACCACTACAATCTTCCTAGGAACAACATATGACGCACTCTCCCCTGAACTCTACACAAC
+GGATGCT

>gi|209483502:3600-4187 [Canis familiaris] gene X, complete
ATATTTTGTCACCAAGACCCTACTTCTAACCTCCCTGTTCTTATGAATTCGAACAGCATACCCCCGATTC

>gi|209483502:3600-4187 [Rattus norvegicus] gene X, complete
CGCTACGACCAACTCATACACCTCCTATGAAAAAACTTCCTACCACTCACCCTAGCATTACTTATATGAT
+CGATTTT
" | perl -ne'$hash{$1}=<>=~tr/CG//if/\[([^][]+)]/}{print map">$_\n$has
+h{$_}\n\n",sort keys%hash'
>Canis familiaris
30

>Homo sapiens
30

>Mus musculus
36

>Pan paniscus
33

>Rattus norvegicus
31
[download]