if( $Date !~ /^(20\d\d)([01]\d)([0123]\d)$/ ) {
    die "Invalid date '$Date';
}
$Date = "$1-$2-$3 00:00:00.000";