( $amonth, $aday, $ayear, $ahour, $amin, $asec )
    = ( $app_date =~ /^(\d\d?)-(\d\d?)-(\d{4}) (1?\d):(\d\d):(\d\d)/ );