#!usr/bin/perl
# 2005-03-01 :

# ouvrir le fichier contenant la liste des cartes
open(CARTES, "imagescartes.txt") or die "Ouverture du ficher imagescartes.txt impossible: $!\n";
-T "imagescartes.txt" or print "ceci n'est pas un fichier texte\n";

while ($ligne = <CARTES>) 
{
	chop($ligne);
	while ($amourss .= /^a.+(f|g)$/g ) 
	{
		$total++;
	}
}