my $app_time;
if( 
    my( $aday, $amonth, $ayear, $ahour, $amin, $asec ) = 
        $appdate =~ m[
             (\d{1,2}) [-/] (\d{1,2}) [-/] (\d{4}) \s+
             (\d{1,2})  :   (\d{1,2})  :   (\d{1,2})
        ]x
) {
    $app_time = timelocal( $asec, $amin, $ahour, $aday, --$amonth, $ayear );
}
else {
    die "Invalid date (format) '$app_date'";
}