foreach (@list) {if (! /\d{4}\-\d{2}/-/d{2}/ or $_ ne '') {$Flag=1;}}
    if ($Flag ==1) {print "The date fields MUST be filled out correctly!";exit;}