#!/usr/bin/perl -w
# 2006/05/16 - I. Dutour

#
# lecture d'un fichier multi-fasta
#

# lecture de la première description
$lecture = <>;

while ($lecture) {
    # on récupère le nom de la séquence 
    #
    ($nom) = ($lecture =~ /^>(\w+)/);

    # lecture de la séquence elle-même
    #
    $sequence = "";
    while ($lecture = <>) {
        chomp($lecture);
        last
	    if ($lecture =~ /^>/); # on s'arrête à la description suivante
        $sequence .= $lecture;
    }

    # traitement de la séquence
    #
    print "$nom :\n";
    print "$sequence\n";
}


###############################################
# Justifiez ici brievement votre algorithme de
# traitement des séquences :
# 
# 
# 
# 
# 
# 

