#!/usr/bin/perl

use strict;
use warnings;
use Date::Manip;

my @dates;
my @strings = ('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',);

for my $string(@strings){
    my  ($date) = $string =~ m!#1 (.*)$!;
    push  @dates,$date;
}

my @sorted_dates = sort{Date_Cmp($a,$b)}@dates;
print $_,"\n" for(@sorted_dates);