Valider le pattern d’une expression régulière à l’aide de fonction ‘eval(pattern)’

Author:
do {
    print "Veuillez Taper votre Pattern? ";
    chomp($pat = <>);
    eval { "" =~ /$pat/ };