print "Error!" if 
  grep { !( /\d{4}-\d{2}-\d{2}/  or $_ eq '' ) } @list;