Select Code to Download

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

( $amonth, $aday, $ayear, $ahour, $amin, $asec )
    = ( $app_date =~ m{ \A                      # beginning of string
                        (\d\d?)-(\d\d?)-(\d{4}) # month-day-year
                        \s                      # space separator
                        (1?\d):(\d\d):(\d\d)    # hour:minutes:seconds
                    }xms );