mon $baguette = <LISEZ>;

BOUCLE: while ('oui') {

  si (($baguette =~ /croustillant/i) et pas ($baguette =~ /éventé/i)) 
+{

    print "J'aime le bon pain français.\n";
  }

  $baguette = <LISEZ>;

  last BOUCLE si $baguette =~ /éventé/i;
}
[download]