mon $baguette = ; BOUCLE: while ('oui') { si (($baguette =~ /croustillant/i) et pas ($baguette =~ /éventé/i)) { print "J'aime le bon pain français.\n"; } $baguette = ; last BOUCLE si $baguette =~ /éventé/i; }