my $date = '2008-12-31';
print "yes" if $date =~ /\d{4}-\d\d-\d\d/;