$date1 =~ /(\d\d)(\d\d)(\d\d)/
  or die "Invalid date format";
$time1 =~ /(\d\d):(\d\d)/
  or die "Invalid time format";