#while ($date !~ /(\d\d)[-](\d\d)[-](\d\d)/);