Merci pour toutes vos réponses. D'après tout ça, il est clair que la meilleure manière d'écrire (et la plus élégante) est while( defined($l = <$src>) && ($l !~ m/,1,/) )... Encore merci. -- Ph. Delavalade