my $date = '2013-06-04 01:23:00'; # June 4th
    $date =~ /^((\d{4})-(\d{2})-(\d{2})) ((..):(..):(..))$/;