I think, this should help you, from what I understand from ur query.
foreach (@list) {if (! /\d{4}\-\d{2}\-\d{2}/ && $_ ne '') {$Flag=1;}}
if ($Flag ==1) {print "The date fields MUST be filled out correctly!";
exit;}
Hope it Helps. Cheers!!!!
Anandatirtha