#!/usr/bin/perl

use strict;
use warnings;
use Date::Calc qw(Date_to_Time);
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;

my @lines = ("AUDIO2-A3.12_P1:project:BmwWtz#1 Wed May 31 13:35:31 2006",
            "AUDIO2-A3.17_P1:project:BmwWtz#1 Wed Sep 13 11:22:57 2006",
            "AUDIO2-A3.8:project:BmwWtz#1     Mon May 08 18:18:02 2006");

my %months = ( "Jan" => "1",
               "Feb" => "2",
               "Mar" => "3",
               "Apr" => "4",
               "May" => "5",
               "Jun" => "6",
               "Jul" => "7",
               "Aug" => "8",
               "Sep" => "9",
               "Oct" => "10",
               "Nov" => "11",
               "Dec" => "12"
               );

my %sort_dates = ();

foreach my $line (@lines) {
    if( $line =~ /(.*) [a-zA-Z]{3} ([a-zA-Z]{3}) (\d{1,2}) (\d{2}):(\d{2}):(\d{2}) (\d{4})$/ ) {
        my $version = $1;
        my $date = $7.$months{$2}.$3.$4;
        my $time = Date_to_Time($7, $months{$2}, $3, $4, $5, $6);
        $sort_dates{$time} = $version;
        
        print $version."\n";
        print "Monat $2\n";
        print "Tag $3\n";
        print "Uhrzeit $4:$5:$6\n";
        print "Jahr $7\n";
    }
}

print Dumper \%sort_dates;