Philou c'est pas un peu sortir l'artillerie lourde pour une simple vérif de format?
est-ce qu'il ne serait pas suffisant de faire: if ( $date =~ /\d{2}\/\d{2}\/\d{2}\// ){}