#!/usr/bin/perl 

if ($#ARGV != 0) {die("je veux un argument unique : le nombre d'exos");}

my $nbexo=$ARGV[0];
my $drapeau=0;

# le while boucle sur les lignes de STDIN
while(my $line = <STDIN>){
 if ($line =~ m/\Q<!nbexos>\E/o)
   {  $drapeau= $drapeau +
      ( $line =~ s/(\<font color\=\"\#FF0000\">)\d*(\<\/font\>)/$1$nbexo$2/oig ) ;
   }
 print $line;
}

close(STDIN);
if ($drapeau != 1){ print STDERR "\nPb ecriture du nb exos dans entree.html:
   $drapeau occurences trouvees\n" ; }