my ($year,$mon,$day,$hour,$min) =
    $date =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})\z/;