#!/usr/bin/perl -w
print STDOUT "NB: pour l'age veuillez taper qu'une valeure numirique svp.\n";
print STDOUT "Quel est ton prénom ? ";
$prenom = <STDIN>;
print STDOUT "Quel age as-tu ? ";
$age = <STDIN>;
print STDOUT "Tu n'as que $age ans, tu es jeune!\n";
print STDOUT "enchantée $prenom, comment vas-tu?";
$comment =<STDIN>;
print "moi aussi, $comment!\n";
if ($comment=~/bien\b/)
{
print "très bien! je suis contente que tu aille $comment \n";
}
else 
{
print "on est sur la même longueur d'ondes $prenom\n";

}