11 Mär 08 22:54 CET

##</code><code>##

use Date::Manip;

Date_Init("Language=German", "DateFormat=non-US", "TZ=UTC");

for my $date_in (
                 "11 Jan 08 22:54 CET",
                 "11 Mär 08 22:54 CET",
                 "11 Mai 08 22:54 CEST",
                 "11 Okt 08 22:54 CEST",
                 "11 Dez 08 22:54 CET",
                ) {
    
    my $date_out = UnixDate( ParseDate($date_in), "%Y-%m-%d_%H:%M:%S" );

    printf "%-20s --> %s\n", $date_in, $date_out;
}

##</code><code>##

11 Jan 08 22:54 CET  --> 2008-01-11_21:54:00
11 Mär 08 22:54 CET  --> 
11 Mai 08 22:54 CEST --> 2008-05-11_20:54:00
11 Okt 08 22:54 CEST --> 2008-10-11_20:54:00
11 Dez 08 22:54 CET  --> 2008-12-11_21:54:00